Salve a tutti!

attualmente uso questo codice per verificare se sono connesso oppure no:

codice:
nel modulo:
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

all'inteerno di una routine timer:
  If InternetGetConnectedState(LFlags, 0& ) Then
    PausaRicerca = False   'c'è una connessione internet
    lblInternet.BackColor = &HE0E0E0
    lblInternet.Caption = "Connesso: SI": lblInternet.Refresh
  Else
    PausaRicerca = True   'non c'è una connessione internet
    lblInternet.BackColor = &HFF&
    lblInternet.Caption = "Connesso: NO": lblInternet.Refresh
    Call Beep(900, 1500)
  End If
come si fa invece a trovare il nome della connessione attiva? prima usavo l'API rasEnumconnections, ma su vista non mi funziona più.