_Like Ping

Private Declare Function IsDestinationReachable Lib "SENSAPI.DLL"
Alias "IsDestinationReachableA" (ByVal lpszDestination As String,
ByRef lpQOCInfo As QOCINFO) As Long

Private Sub Form_Load()

  Dim Ret As QOCINFO

  Dim IP As String

  Ret.dwSize = Len(Ret)

  'Put desired IP

  IP = "217.9.238.114"

  If IsDestinationReachable(IP, Ret) = 0 Then

    MsgBox "The destination cannot be reached!"

  Else

    MsgBox "The destination can be reached!" +
vbCrLf + _

    "The speed of data coming in from the destination
is " + Format$(Ret.dwInSpeed / 1048576, "#.0") + " Mb/s,"
+ vbCrLf + _

    "and the speed of data sent to the destination
is " + Format$(Ret.dwOutSpeed / 1048576, "#.0") + " Mb/s."

  End If

End Sub