Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
      lpdwFlags As Integer, ByVal dwReserved As Integer) As Integer
    Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent _
    As Integer, ByVal lpszConiID As String, ByVal dwFlags As Integer, ByRef _
    hCon As Integer, ByVal dwReserved As Integer) As Integer
    Private Declare Function InternetHangUp Lib "wininet.dll" (ByVal hCon As _
    Integer, ByVal dwReserved As Integer) As Integer
 
    Const DIAL_UNATTENDED As Integer = &H8000
    Const DIAL_FORCE_ONLINE As Integer = 1
    Const DIAL_FORCE_UNATTENDED As Integer = 2
 
    Dim zeit As Date = "23:59:50"
    Dim ConID As Integer
    Dim ConName As String
    Dim dwflags As Integer
    Dim online As Boolean = False
 
    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs _
      As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs _
      As System.EventArgs) Handles Timer1.Tick
        If InternetGetConnectedState(dwflags, 0) Then
            zeit = zeit.AddSeconds(1)
            TextBox1.Text = zeit.ToString.Substring(11, 8)
            Me.Text = zeit.ToString.Substring(11, 8)
            online = False
        Else
            If Not online Then
                Timer1.Enabled = False
                InternetDial(Me.Handle.ToInt32, ConName, DIAL_FORCE_UNATTENDED, _
                  ConID, 0)
                online = True
                Timer1.Enabled = True
            End If
        End If
    End Sub
    Private Sub verbinden()
        InternetDial(Me.Handle.ToInt32, ConName, DIAL_FORCE_UNATTENDED, ConID, _
          0)
    End Sub
    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal _
      eventArgs As System.EventArgs) Handles Command1.Click
        If ConID Then InternetHangUp(ConID, 0)
        ConID = 0
        Me.Close()
        End
    End Sub
End Class