' zunächst die benötigten API-Deklarationen
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

' Online-Verbindung starten
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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de