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 = e' IsNetworkInstalled = GetSystemMetrics(SM_NETWORK) End Function |