هل يوجد كود لبرنامج يعمل عند الاتصال بالانترنيت

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long



Private Sub Command1_Click()
Dim IsConnect As Boolean
IsConnect = InternetGetConnectedState(0&, 0&)

If IsConnect = False Then
Print "غير متصل بالنت "
Else
Print "متصل بالنت"
End If
End Sub