VB Snippet - Check whether network is installed or not

VB Code:

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
 
Private Sub Form_Load()
 
    Dim x As Long
 
    x = GetSystemMetrics(63)
 
    If (x And 2) = 2 Then
 
        MsgBox "Network is Installed"
 
    Else
 
        MsgBox "Network is not Installed"
 
    End If
 
End Sub