''' Den Netzwerkverbindungsstatus auf dem Hauptformular bei jeder Änderung des 
' Verbindungsstatus aktualisieren.
        Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As _
          Object, ByVal e As _
          Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles _
          Me.NetworkAvailabilityChanged
            SetConnectionStatus(e.IsNetworkAvailable)
        End Sub