' Benötigte API-Deklaration
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 Ping(ByVal IP As String) As Boolean
  Dim QuestStruct As QOCINFO
  Dim lReturn As Long
 
  ' Größe der Struktur
  QuestStruct.dwSize = Len(QuestStruct)
 
  ' Prüfen, ob Ziel erreichbar
  lReturn = IsDestinationReachable(IP, QuestStruct)
 
  ' Antwort auswerten
  If lReturn = 1 Then
    ' Antwort bekommen
    Ping = True
  Else
    ' keine Antwort
    Ping = False
  End If
End Function
 
Private Sub Command1_Click()
    If Ping("DEINE IP") = False Then
        MsgBox "Keine Verbindung!"
    Else
        MsgBox "Kabel angeschlossen!"
    End If
End Sub