VB Code:
dim query1 as new ManagementObjectSearcher("select ConnectionState from Win32_NetorkConnection")
dim queryColl as ManagementObjectCollection() = query1.Get()
string connectionState = ""
dim mo as new ManagementObject()
For Each mo In queryColl
connectionState = mo("ConnectionState").ToString()
Next
Select Case connectionState
Case "Connected"
'do whatever
Case "Error"
'do whatever
Case "Paused"
'do whatever
Case "Disconnected"
'do whatever
Case "Connecting"
'do whatever
Case "Reconnecting"
'do whatever
End Select