Public Class Form1
    Inherits System.Windows.Forms.Form
    Public Declare Function netPingIP Lib "vbarchiv.dll" (ByVal sAddress As _
      String, ByRef Reply As ICMP_ECHO_REPLY) As Long
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button7.Click
        Dim icmp As ICMP_ECHO_REPLY
        Dim uStatus As Long
        uStatus = netPingIP(netHostToIP("www.vbarchiv.net"), icmp)
        If uStatus <> -1 Then
            MsgBox("Ping-Ergebnis: " & netEvalPingResponse(icmp.Status))
        End If
    End Sub
End Class