Private Sub Command1_Click()
Dim ECHO As ICMP_ECHO_REPLY
Dim pos As Integer

Call Ping(Text3.Text, ECHO)
Status.Caption = "Status: " & GetStatusCode(ECHO.Status)
Reply.Caption = "Ping tid: " & ECHO.RoundTripTime & " ms"
' Om GetStatusCode(ECHO.Status) = "IP Pinged Successfully" kan använda
' detta för att få reda på om IP-adressen pingades
End Sub