Function isOnline()
        If My.Computer.Network.IsAvailable Then
            If My.Computer.Network.Ping("www.google.de") Then
                Return True
            End If
            Return False
        End If
        Return False
    End Function
 
    Sub connect()
        System.Diagnostics.Process.Start("rasdial", "T-Online")
    End Sub
 
    Sub disconnect()
        System.Diagnostics.Process.Start("rasdial", "T-Online /disconnect")
    End Sub
 
    Sub reConnect()
        disconnect()
        connect()
    End Sub