IsNetInstall

Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long

'Returns True if a Network is found (read-only)


Function IsNetworkInstalled() As Boolean
Const SM_NETWORK = 63
IsNetworkInstalled = GetSystemMetrics(SM_NETWORK)
End Function