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

在VS2005中可以利用新的MY功能并配合Timer组件实现对本地网络连接状态的实时监测，代码如下：       
If My.Computer.Network.IsAvailable = False Then
            Me.Label1.Text = "与网络服务器的连接状态：断开"
            Me.TextBox1.Text = ("电脑没有接入网络，请检查网线是否插好或与系统管理员联系." & "当前时间是：" & Now)
            Me.TextBox1.ForeColor = Color.Red
            Me.TextBox1.BackColor = Color.Yellow
        ElseIf My.Computer.Network.IsAvailable = True Then
            Me.Label1.Text = "与网络服务器的连接状态：连接"
            Me.TextBox1.Text = ("当前网络连接正常." & "当前时间是：" & Now)
            Me.TextBox1.ForeColor = Color.YellowGreen
        End If