Check Internet Availabitity Visual Basic 2008

Imports Microsoft.Win32
Public Class Check_Internet_Availibility
    Dim internetStatus As Boolean
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.Network.IsAvailable Then
            internetStatus = True
        Else
            internetStatus = False
        End If
        If internetStatus = True Then
            Label2.Text = ("Active")
            Label2.ForeColor = Color.Navy
        Else
            Label2.Text = ("Not Active")
            Label2.ForeColor = Color.Maroon
        End If
    End Sub

    Private Sub Check_Internet_Availibility_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class