--- projects/cms/source/host/winhost/nettest.frm	2001/02/23 11:42:06	1.10
+++ projects/cms/source/host/winhost/nettest.frm	2001/02/23 11:56:43	1.11
@@ -1,5 +1,6 @@
 VERSION 5.00
 Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
+Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0"; "SysTray.ocx"
 Begin VB.Form Form1 
    BorderStyle     =   4  'Fixed ToolWindow
    Caption         =   "i-scream Winhost"
@@ -9,11 +10,26 @@ Begin VB.Form Form1 
    ClientWidth     =   5670
    LinkTopic       =   "Form1"
    MaxButton       =   0   'False
-   MinButton       =   0   'False
    ScaleHeight     =   5655
    ScaleWidth      =   5670
    ShowInTaskbar   =   0   'False
    StartUpPosition =   3  'Windows Default
+   Begin VB.CommandButton Hide 
+      Caption         =   "Hide"
+      Height          =   495
+      Left            =   1800
+      TabIndex        =   7
+      Top             =   2160
+      Width           =   1215
+   End
+   Begin SysTray.SystemTray SystemTray 
+      Left            =   3600
+      Top             =   1200
+      _ExtentX        =   847
+      _ExtentY        =   847
+      SysTrayText     =   "i-scream Winhost"
+      IconFile        =   0
+   End
    Begin VB.Timer Timer1 
       Left            =   4200
       Top             =   1200
@@ -173,18 +189,33 @@ iniError:
 End Sub
 
 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
-    x = MsgBox("Are you sure you want to shut down the Winhost?", vbYesNo, "i-scream Winhost")
+    x = MsgBox("Are you sure you want to shut down the Winhost?  This will stop your computer sending information to the i-scream Central Monitoring System.", vbYesNo, "i-scream Winhost")
     If x = 7 Then
         Cancel = True
     End If
 
 End Sub
 
+Private Sub Hide_Click()
+    Form1.Visible = False
+    SystemTray.Icon = Val(Form1.Icon)
+    SystemTray.Action = 0
+End Sub
+
 Private Sub Reconfigure_Click()
     ' establish a TCP connection to a filtermanager
     connected = False
     TCPSock.Close
     TCPSock.Connect filterManagerHostname, filterManagerTCPPort
+End Sub
+
+
+
+Private Sub SystemTray_MouseDblClk(ByVal Button As Integer)
+
+    Form1.Visible = True
+    Form1.SetFocus
+
 End Sub
 
 Private Sub TCPSock_Connect()