利用My功能配合Timer组件在应用程序中实时监测电脑网络连接状态

在VS2005中可以利用新的MY功能并配合Timer组件实现对本地网络连接状态的实时监测，代码如下：  

 1If My.Computer.Network.IsAvailable = False Then
 2            Me.Label1.Text = "与网络服务器的连接状态：断开"
 3            Me.TextBox1.Text = ("电脑没有接入网络，请检查网线是否插好或与系统管理员联系." & "当前时间是：" & Now)
 4            Me.TextBox1.ForeColor = Color.Red
 5            Me.TextBox1.BackColor = Color.Yellow
 6        ElseIf My.Computer.Network.IsAvailable = True Then
 7            Me.Label1.Text = "与网络服务器的连接状态：连接"
 8            Me.TextBox1.Text = ("当前网络连接正常." & "当前时间是：" & Now)
 9            Me.TextBox1.ForeColor = Color.YellowGreen
10        End If