Public Declare Function IsDestinationReachable Lib "Sensapi.dll" Alias _
             "IsDestinationReachableA" _
            (ByVal lpszDestination As String, _
             lpQOCInfo As QOCINFO) As Long
 
Public Type QOCINFO
       dwSize As Long
       dwFlags As Long
       dwInSpeed As Long
       dwOutSpeed As Long
End Type
 
Public Function Ping(Byval IP As String) As Boolean
      Dim QuestStruct As QOCINFO
      Dim Rval As Long
 
      QuestStruct.dwSize = Len(qoc)
 
      Rval = IsDestinationReachable(IP, QuestStruct)
      If Rval = 1 Then
             Ping = True 'Antwort bekommen
      Else
            Ping = False 'keine Antwort
      End If
 
End Function