Dim myPing As New Ping()
Dim host_karuru As String = "10.2.0.1"
Dim reply_karuru As PingReply = myPing.Send(host_karuru, timeout, buffer, pingOptions)

If reply_karuru.Status = IPStatus.Success Then
lbl_karuru.ForeColor = System.Drawing.Color.Green
ElseIf reply_karuru.Status = IPStatus.TimedOut Then
lbl_karuru.ForeColor = System.Drawing.Color.Red
ElseIf reply_karuru.Status = IPStatus.BadDestination OrElse reply_karuru.Status = IPStatus.BadOption Then
lbl_karuru.ForeColor = System.Drawing.Color.Red
End If