Formunuza 1 adet Button ekleyin ve aşağıdaki kodu yazın.

Public Class Form1

    Private Sub btnKontrol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKontrol.Click
      If My.Computer.Network.IsAvailable = True Then
        MsgBox("Bilgisayarınız İnternete Bağlı.")
      Else
        MsgBox("Bilgisayarınız İnternete Bağlı Değil.")
      End If
    End Sub
End Class