the problem is that if I refresh the data (calling again the same
routine), after unplugging the cable of my local pc (where the app is
running), the link status still shows to be up. Am I missing something
?

Thanks and Regards

Sub CheckConnection Winsock1.Connect "110.100.1.1", 1400
If Err <> 0 Then
shpLink.BackColor = vbRed
Else
shpLink.BackColor = vbGreen
End If
Err.Clear
On Error GoTo 0
Winsock1.Close
End Sub