NO........a me funziona tutto correttamente non l' ho scritto onde evitare di intasare inutilmente il forum ............. mi appare solo un pannello con scritto modem connect...... nel caso in cui non lo si voglia basta eliminare il codice corrispondente


If InternetGetConnectedState(lngFlags, 0) Then
'connected.
If lngFlags And Flags.INTERNET_CONNECTION_LAN Then
'LAN connection.
MsgBox("LAN connection.") DA ELIMINARE PER EVITARE CHE APPAIA
ElseIf lngFlags And Flags.INTERNET_CONNECTION_MODEM Then
'Modem connection.
MsgBox("Modem connection.") DA ELIMINARE PER EVITARE CHE APPAIA
ElseIf lngFlags And Flags.INTERNET_CONNECTION_PROXY Then
'Proxy connection.
MsgBox("Proxy connection.")
End If
Else
'not connected.
MsgBox("Not connected.")
End If