Private Sub Command1_Click()
    Dim i As Single
    i = Pingen("192.168.1.5")
    If i = -1 Then
      MsgBox ("Nicht Gefunden")
    Else
      'Gefunden
      MsgBox ("Zeit bis Host :" & i)
    End If
End Sub
 
Private Declare Function IsDestinationReachable Lib "Sensapi.dll" Alias _
  "IsDestinationReachableA" (ByVal lpszDestination As String, lpQOCInfo As _
  QOCINFO) As Long
 
Private Type QOCINFO
  dwSize As Long
  dwFlags As Long
  dwInSpeed As Long
  dwOutSpeed As Long
End Type
 
 
Public Function Pingen(ByVal sHost As String) As Single
  ' sHost = IP oder Hostname
  Dim QI As QOCINFO
  Dim vTime As Single
 
  QI.dwSize = Len(QI)
  vTime = Timer
  If IsDestinationReachable("\\" & sHost, QI) = 1 Then
    Pingen = Timer - vTime
  Else
    Pingen = -1
  End If
End Function