Public Class Form1
 
    Private Sub sentPing()
        If My.Computer.Network.Ping("10.60.4.121") Then
            MsgBox("Server pinged successfully.")
 
        Else
            MsgBox("Ping request timed out.")
        End If
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        sentPing()
    End Sub
End Class

Blumen sind die sch?nste Sprache der Welt!
Visual Basic ist die aller sch?nste