VB.NET de İnternet Bağlantısını Sınama

If My.Computer.Network.IsAvailable = True Then
Label1.Text="Var!"
Else
Label1.Text="yok"
End If