用VB代码如何判断主机当前的网络情况

用VB代码怎么判断主机当前的网络情况！
就是判断是否可以正常上网！！！

[解决办法]

VB code

Option ExplicitPrivate Const FLAG_ICC_FORCE_CONNECTION As Long = &H1&Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As LongPrivate Sub Command1_Click()    If InternetCheckConnection("http://www.baidu.com", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then       Debug.Print "网络未连接"    Else       Debug.Print "网络已连接"    End IfEnd Sub