Public Class Form1

Protected Friend withevents tmr as new timer

Private png as new System.Net.NetworkInformation.ping

Public Sub Form1_load(byval sender as object, byval e as system.eventargs) Handles mybase.load

tmr.stop : tmr.interval = 60* 1000 : Tmr.start

End Sub

Private Sub tmr_tick(byval sender as object, byval e as system.eventargs) Handles tmr.tick

tmr.stop

Dim pr as System.Net.NetworkInformation.pingreply

Try

pr = png.send("www.microsoft.com")

Select Casepr.status

case System.Net.Networkinformation.IpStatus.Success

Textbox1.text = "ok"

case else

Textbox1.text = "Error" ' Note more information than this is available

end select ' See Object Browser

catch ex as exception

Textbox1.text = "Error " + ex.message

Finally

tmr.start

End try

End Sub

End Class

Public Class Form1

Protected Friend withevents tmr as new timer

Private png as new System.Net.NetworkInformation.ping

Public Sub Form1_load(byval sender as object, byval e as system.eventargs) Handles mybase.load

tmr.stop : tmr.interval = 60* 1000 : Tmr.start

End Sub

Private Sub tmr_tick(byval sender as object, byval e as system.eventargs) Handles tmr.tick

tmr.stop

Dim pr as System.Net.NetworkInformation.pingreply

Try

pr = png.send("www.microsoft.com")

Select Casepr.status

case System.Net.Networkinformation.IpStatus.Success

Textbox1.text = "ok"

case else

Textbox1.text = "Error" ' Note more information than this is available

end select ' See Object Browser

catch ex as exception

Textbox1.text = "Error " + ex.message

Finally

tmr.start

End try

End Sub

End Class

Great !

I wrote that by hand.....

Just about every answer I get from ya works first time.

may i know how to stop pinging? for example, the ip will be ping every 15 minutes and then user can stop the ping proces by click the stop ping button....is it possible?