--- experimental/host/vb_net_test/nettest.frm	2001/02/23 11:25:35	1.8
+++ experimental/host/vb_net_test/nettest.frm	2001/02/23 11:30:25	1.9
@@ -67,37 +67,39 @@ Begin VB.Form Form1 
       _Version        =   393216
       Protocol        =   1
    End
-   Begin VB.Label Label4 
-      Caption         =   "Label4"
+   Begin VB.Label Label2 
+      Alignment       =   1  'Right Justify
+      Caption         =   "Next heartbeat:"
       Height          =   255
-      Left            =   1920
+      Left            =   120
       TabIndex        =   8
-      Top             =   1320
-      Width           =   615
+      Top             =   480
+      Width           =   1455
    End
-   Begin VB.Label Label3 
-      Caption         =   "Label3"
+   Begin VB.Label Label1 
+      Alignment       =   1  'Right Justify
+      Caption         =   "Next UDP packet:"
       Height          =   255
-      Left            =   1920
+      Left            =   120
       TabIndex        =   7
-      Top             =   960
-      Width           =   615
+      Top             =   120
+      Width           =   1455
    End
-   Begin VB.Label Label2 
-      Caption         =   "Label2"
+   Begin VB.Label Label4 
+      Caption         =   "0"
       Height          =   255
-      Left            =   120
+      Left            =   1680
       TabIndex        =   6
-      Top             =   600
-      Width           =   3375
+      Top             =   480
+      Width           =   615
    End
-   Begin VB.Label Label1 
-      Caption         =   "Label1"
+   Begin VB.Label Label3 
+      Caption         =   "0"
       Height          =   255
-      Left            =   120
+      Left            =   1680
       TabIndex        =   5
-      Top             =   240
-      Width           =   3375
+      Top             =   120
+      Width           =   615
    End
    Begin VB.Label Status 
       Caption         =   "Status:"
@@ -262,8 +264,6 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
                 responseNumber = 0
                 TCPSock.Close
                 Text4.Text = Text4.Text & vbCrLf & "  <closed>"
-                Label1.Caption = "TCP hearbeat interval: " & UDPUpdateTime
-                Label2.Caption = "UDP packet interval: " & TCPUpdateTime
                 Status.Caption = "i-scream Winhost " & protocolVersion & " - got config okay"
                 Label3.Caption = UDPUpdateTime
                 Label4.Caption = TCPUpdateTime