Check Internet Status Visual Basic

http://www.youtube.com/watch?v=8w7l8OCd51I <- Additional Help and Support
Code:

Imports Microsoft.Win32
________________________________________________________

Dim internetStatus As Boolean

Private Sub internetCheck_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles internetCheck.DoWork

System.Threading.Thread.Sleep(1000)
If My.Computer.Network.IsAvailable Then
internetStatus = True
Else
internetStatus = False
End If

End Sub

Private Sub internetCheck_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles internetCheck.RunWorkerCompleted

If internetStatus = True Then
Label2.Text = "Connection Status : Available"
Else
Label2.Text = "Connection Status : Not Available"
internetCheck.RunWorkerAsync() 'Rename your Background worker to this.

End Sub