Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Static bProzess As Boolean = False
        If bProzess = False Then
            Dim myProzess As New Process
            myProzess.StartInfo.FileName = ("rasphone.exe")
            'Kommandozeilenparameter, bei T-Online den jeweiligen Namen der 
            ' Verbindung eingeben
            myProzess.StartInfo.Arguments = "-t T-Online"
            myProzess.Start()
            bProzess = True
        Else
            MsgBox("Es besteht bereits eine Internetverbindung")
        End If
    End Sub