If My.Computer.Network.IsAvailable Then
MsgBox("Bağlantı başarılı.")
Else
MsgBox("İnternet bağlantınızı kontrol ediniz!")
Form1.Close
End If

Biraz geç oldu ama böyle olucak sanırım