經常需要判斷目前的電腦與網路連線是否正常

Dim isa As Boolean = My.Computer.Network.IsAvailable
If isa = True Then
  MessageBox.Show("目前網路連線正常!!")
Else
  MessageBox.Show("目前網路無法連線！！")
End If