--- projects/cms/source/host/winhost/nettest.frm	2001/02/26 08:53:48	1.19
+++ projects/cms/source/host/winhost/nettest.frm	2001/02/26 09:12:51	1.20
@@ -8,6 +8,7 @@ Begin VB.Form Form1 
    ClientLeft      =   45
    ClientTop       =   330
    ClientWidth     =   4710
+   Icon            =   "nettest.frx":0000
    LinkTopic       =   "Form1"
    MaxButton       =   0   'False
    MinButton       =   0   'False
@@ -41,7 +42,7 @@ Begin VB.Form Form1 
       MultiLine       =   -1  'True
       ScrollBars      =   2  'Vertical
       TabIndex        =   1
-      Text            =   "nettest.frx":0000
+      Text            =   "nettest.frx":0742
       Top             =   3000
       Width           =   3975
    End
@@ -182,12 +183,13 @@ Private Sub Form_Load()
     filterManagerHostname = Left$(buf, length)
     length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini")
     filterManagerTCPPort = length
+    On Error GoTo 0
 skip:
 
     Status.Caption = "Connecting to Filter Manager " & filterManagerHostname & ":" & filterManagerTCPPort
     Reconfigure_Click
     
-    Form1.Show
+    SystemTray.Icon = Val(Form1.Icon)
     SystemTray.Action = 0