Vb.Net İnternet Bağlantı Kontrolü

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Computer.Network.IsAvailable = True Then
            MsgBox("Bilgisayarınız internete bağlı.",MsgBoxStyle.Information,"Bilgi")
        Else
            MsgBox("Bilgisayarınız internete bağlı değil.",MsgBoxStyle.Information,"Bilgi")
        End If
    End Sub
End Class