detectar conexion de internet

[Zeroql]

buenas como estan todos....
mi pregunta es como hago para detectar una conexion a internet por MODEM, ADSL Y RED, alguien sabe como?
tengo un codigo pero solo es para ver la conexion en MODEM

[Hendrix]

Look the ApiGuide my Friend!!

Código (vb) [Seleccionar] Expandir

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

Espero que sea esto que buscas.

Un Saludo. 

[Zeroql]

Muchas gracias Hendrix. es algo parecido, pero ya me las ingenio yo, gracias, por cierto felicidades por ser el nuevo moderador.

[Hendrix]

Este te avisa si estas en una red o no.

Gracias. 

Un Saludo

[Zeroql]

si, me avisa el tipo de red que es, lan wan