Notfall Telefon Umleitungen, Service für automatische Umleitung, ...

Dokumentation/Main.vb

@@ -1236,6 +1236,8 @@ exit"
 
     Public Function CheckUpdate(starter As String)
         dbload()
+        Dim pascom As New cPascom
+        lblNotruf.Text = "Notruf geht an: " & pascom.getredirect("555")
         Dim RemoteVersion As String = ""
         LblVersion.Text = "Version: " & Version
         Try
@@ -1660,7 +1662,7 @@ exit"
             ChkFreieHosts.Checked = Class1.ini.prop_FreiHostsAnzeigen
             ChkDHCPClients.Checked = Class1.ini.prop_DHCPClientsAnzeigen
             ChkTools.Checked = Class1.ini.prop_ToolsPanelAnzeizgen
-            chkPano.Checked = Class1.ini.prop_Pano
+            ' chkPano.Checked = Class1.ini.prop_Pano
         Else
             '     File.Create(Application.StartupPath & "\config.ini")
         End If
@@ -1735,7 +1737,6 @@ exit"
     End Sub
 
 
-
     Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed
 
         Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked
@@ -1743,7 +1744,7 @@ exit"
         Class1.ini.prop_DHCPClientsAnzeigen = ChkDHCPClients.Checked
         Class1.ini.prop_ToolsPanelAnzeizgen = ChkTools.Checked
         Class1.ini.prop_TSSitzungenAnzeigen = chkTSSitzungen.Checked
-        Class1.ini.prop_Pano = chkPano.Checked
+        'Class1.ini.prop_Pano = chkPano.Checked
 
         Class1.ini.save()
     End Sub