Private Sub Timer1_Timer()
Dim Reply As ICMP_ECHO_REPLY
   Dim lngSuccess As Long
   Dim strIPAddress As String
 
   'Get the sockets ready.
   If SocketsInitialize() Then
 
    'Address to ping
    strIPAddress = "192.168.1.100"
 
    'Ping the IP that is passing the address and get a reply.
    lngSuccess = ping(strIPAddress, Reply)
 
    'Clean up the sockets.
    SocketsCleanup
 
   Else
 
   'Winsock error failure, initializing the sockets.
   Debug.Print WINSOCK_ERROR
 
   End If
        If lngSuccess = 11018 Then MsgBox "Bad IP"
        If lngSuccess = 0 Then MsgBox "Success"
        If lngSuccess = 11010 Then MsgBox "Request Timeout"
End Sub