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
 
 
Const DIAL_UNATTENDED = &H8000
Const DIAL_FORCE_ONLINE = 1
Const DIAL_FORCE_UNATTENDED = 2
 
Private Sub Form_Load()
   InternetDial Me.hWnd, "ISDN", DIAL_FORCE_ONLINE, ConID, 0
End Sub