Visual Basic - CONECTAR A INTERNET

COMO ME CONECTO A INTERNET POR MODEM EN VISUAL BASIC 6.0

En Windows 98 sería así
Dim X As Long
X = Shell("rundll32.exe rnaui.dll,RnaDial " & "AMB Software", 1)

PERO EN WINDOWS XP NO FUNCIONA,QUE HAGO?

Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: [email protected]
If InternetAttemptConnect(ByVal 0&) = 0 Then
MsgBox "You can connect to the Internet", vbInformation
Else
MsgBox "You cannot connect to the Internet", vbInformation
End If
End Sub

Buenos días,

Siguiendo con el tema de la programación de la API WININET, ¿cómo podría capturar los errores en tiempo de ejecución?. Por ejemplo, al conectar con con un servidor FTP incorrecto, o con login y password inexistentes, ...

Muchas gracias.
I.Salís

Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, _
ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long
' -----------------------------------------------------------------------------
Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, _
ByVal sServerName As String, _
ByVal nServerPort As Integer, _
ByVal sUsername As String, ByVal sPassword As String, _
ByVal lService As Long, _
ByVal lFlags As Long, _
ByVal lContext As Long) As Long