Option Explicit
Private OKAY As Boolean
Private Declare Function InternetDial Lib "wininet.dll" _
        (ByVal hwndParent As Long, ByVal lpszConiID _
        As String, ByVal dwFlags As Long, ByRef hCon _
        As Long, ByVal dwReserved As Long) As Long
 
Private Const DIAL_FORCE_ONLINE = 1
Private Const DIAL_FORCE_UNATTENDED = 2
 
Public Function RASConnect(ByVal hWnd As Long, _
  Optional ByVal DFÜName As String = "", _
  Optional ByVal AutoStart As Boolean = False) As Boolean
 
  Dim conID As Long
 
  InternetDial hWnd, DFÜName, IIf(AutoStart, _
    DIAL_FORCE_UNATTENDED, DIAL_FORCE_ONLINE), _
    conID, 0
 
  RASConnect = (conID <> 0)
End Function
 
Private Sub Form_Load()
    lblWarten.Caption = "Bitte Warten..." & vbCrLf & "Die Verbindung zu 1 und 1" & _
      "wird hergestellt"
    OKAY = RASConnect(frmWarten1.hWnd, "1 und 1", True)
    If OKAY = True Then
        MsgBox "Die Verbindung ist erfolgreich hergestellt worden!!!", _
          vbInformation, "Erfolgreich"
        Open "c:\1und1verbindung.log" For Append As #1
        Print #1, "Verbindung hergestellt am "; Date; " um "; Time
        Close #1
        Open "c:\zeit.dat" For Append As #1
        Print #1, Time
        Close #1
    Else
        MsgBox "Die Verbindung konnte nicht hergestellt werden.", vbCritical, _
          "FEHLER!!!"
        Open "c:\1und1verbindung.log" For Append As #1
        Print #1, "Verbindung konnte nicht hergestellt werden am "; Date; " um" & _
          ""; Time
        Close #1
    End If
    Unload Me
End Sub