bueno este es el prblema
uso una api y una funcion que me detecta que se esta conectado a internet por medio del modem.
pero resulta que en estos mometos necesito que me detecte el internet por medio de banda ancha.... he intentado cambiando el code pero no he podido hacer nada. si alguien sabe como hacer esto. una api o un code me seria de gran ayuda
gracias

satan69 muchas gracias pero resulta que nesecito detectar la conexión a internet por una funcion hecha en un modulo

Bueno...es la primera respuesta que voy a dar. A ver si te sirve este codigo. Te detecta si estas conectado a una red y te dice el tipo de red que es:
Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Ret As Long
    If IsNetworkAlive(Ret) = 0 Then
        MsgBox "The local system is not connected to a network!"
    Else
        MsgBox "The local system is connected to a " + IIf(Ret = NETWORK_ALIVE_AOL, "AOL", IIf(Ret = NETWORK_ALIVE_LAN, "LAN", "WAN")) + " network!"
    End If
End Sub