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
 
  QuestStruct.dwSize = Len(QuestStruct)
 
  lReturn = IsDestinationReachable(IP, QuestStruct)
 
  If lReturn = 1 Then
    Ping = True
  Else
    Ping = False
  End If
End Function
 
 
Private Sub Command1_Click(Index As Integer)
    CR$ = Chr$(13) & Chr$(10)
 
    textbox.Text = "Starte IP-Scan" & CR$ & "--------------"
 
    For i = 1 To 254
        curip = "192.168.0." & i
        pingable = Ping(curip)
        If pingable Then
            textbox.Text = textbox.Text & CR$ & curip & " pingbar"
        Else
            textbox.Text = textbox.Text & CR$ & curip & " geht nicht :("
        End If
    Next i
End Sub
 
Private Sub textbox_Change()
    textbox.SelStart = Len(textbox.Text)
End Sub