DetectConnect

Private Sub Form_Load()
Text1.Text = Winsock1.LocalIP
End Sub

Private Sub Text1_Change()
If Text1.Text = "127.0.0.1" Or Text1.Text = "0.0.0" _
Or Text1.Text = "0.0.0.0" Then
Text1.Text = ""
End If
End Sub

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Nessuna Connessione!"
Else
MsgBox "Connessione Attiva!"
End If
End Sub

Richiede:
1- Aggiungere l'ocx mswinsck.ocx sul form
2- Aggiungere una textbox sul form
3- Agiungere un commamd button

Attenzione!
Utilizzare mswinsck.ocx NON winsock.ocx