Visual Basic - deshabilitar la conexion a internet

alguien me podria decir como deshabilitar la conexion a internet mediante codigo de visual basic 6. una conexion por cable modem, conectado via USB.

saludos y gracias

Hace un tiempo desarrollé una aplicación en la que, de manera similar a la tuya, necesitaba realizar una desconexión de Internet.
Te doy el código que utilicé a continuación.
A mi me funcionó, pero si te da algún tipo de error comunícamelo.

'====================================================
'CÓDIGO PARA DESHABILITAR CONEXIÓN A INTERNET
'====================================================

'============================================
módulo
'============================================
‘Declara el código siguiente en un módulo:

Public Const RAS_MAXENTRYNAME As Integer = 256
Public Const RAS_MAXDEVICETYPE As Integer = 16
Public Const RAS_MAXDEVICENAME As Integer = 128
Public Const RAS_RASCONNSIZE As Integer = 412

Public Type RasEntryName
dwSize As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
End Type

Public Type RasConn
dwSize As Long
hRasConn As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
szDeviceType(RAS_MAXDEVICETYPE) As Byte
szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type

Public Declare Function RasEnumConnections Lib _
"rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As _
Any, lpcb As Long, lpcConnections As Long) As Long

Public Declare Function RasHangUp Lib "rasapi32.dll" Alias _
"RasHangUpA" (ByVal hRasConn As Long) As Long

Public gstrISPName As String
Public ReturnCode As Long

Public Sub HangUp()
Dim i As Long
Dim lpRasConn(255) As RasConn
Dim lpcb As Long
Dim lpcConnections As Long
Dim hRasConn As Long
lpRasConn(0).dwSize = RAS_RASCONNSIZE
lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
lpcConnections = 0
ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, _
lpcConnections)

If ReturnCode = ERROR_SUCCESS Then
For i = 0 To lpcConnections - 1
If Trim(ByteToString(lpRasConn(i).szEntryName)) _
= Trim(gstrISPName) Then
hRasConn = lpRasConn(i).hRasConn
ReturnCode = RasHangUp(ByVal hRasConn)
End If
Next i
End If

End Sub

Public Function ByteToString(bytString() As Byte) As String
Dim i As Integer
ByteToString = ""
i = 0
While bytString(i) = 0&
ByteToString = ByteToString & Chr(bytString(i))
i = i + 1
Wend
End Function

'============================================
módulo
'============================================

’Una vez añadido todo el código anterior en el modulo, bastará con llamar a la función HangUp, escribiendo lo siguiente:

Call HangUp

'============================================

Espero que te funcione debidamente.

Si tienes problemas, no dudes en responder.

Hasta otra,

Zoto

El fuente publicado no funciona, para empezar no definies la constante ERROR_SUCCESS, por otro lado la funcion RasEnumConnections no asigna ningun valor a la lpcConnections.

saludos,

no se pero para eso solo seria mas facil desconectar la linea no?