bu Kodları bir butona veya Bir timerıa yazabilrisniz..
Timer ın altına yazarsanız eğer msbox değilde me.text kullanın...
yoksa surekli olarak mesaj veriir....
buda hic guzel olmaz....

If My.Computer.Network.IsAvailable = True Then
MsgBox("internet bağlantısı var")
Else
MsgBox("İnternet Bağlantısı Yok!")
End If
Bu kodu mesaj gonderme programında kullanabilirisniz...
__________________