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