VB.Net检测网络连接状态的代码

乐博网lob.cn提示：此代码运行环境为vb.net2008

Public Class Form1
    '获取网络连接状态
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.Network.IsAvailable = True Then
            Me.TextBox1.Text = "计算机已连接到网络上"
        Else
            Me.TextBox1.Text = "计算机未连接到网络上"
        End If
    End Sub
    '退出当前程序
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class