作者:VB.NET开发
项目:Microsoft.VisualBasic.ApplicationService
Private Sub MyApplication_NetworkAvailabilityChanged(
sender As Object,
e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs
) Handles Me.NetworkAvailabilityChanged
My.Forms.Form1.SetConnectionStatus(e.IsNetworkAvailable)
End Sub