VB Code:
  1. Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
  2.  
  3. Private Sub Form_Load()
  4.  
  5.     Dim x As Long
  6.  
  7.     x = GetSystemMetrics(63)
  8.  
  9.     If (x And 2) = 2 Then
  10.  
  11.         MsgBox "Network is Installed"
  12.  
  13.     Else
  14.  
  15.         MsgBox "Network is not Installed"
  16.  
  17.     End If
  18.  
  19. End Sub