--- experimental/host/vb_net_test/nettest.frm	2001/02/23 10:53:30	1.6
+++ experimental/host/vb_net_test/nettest.frm	2001/02/23 10:58:00	1.7
@@ -14,6 +14,14 @@ Begin VB.Form Form1 
    ScaleWidth      =   5670
    ShowInTaskbar   =   0   'False
    StartUpPosition =   3  'Windows Default
+   Begin VB.Timer TCPTimer 
+      Left            =   3360
+      Top             =   120
+   End
+   Begin VB.Timer UDPTimer 
+      Left            =   3840
+      Top             =   120
+   End
    Begin VB.CommandButton Command3 
       Caption         =   "TCP to Filter"
       Height          =   375
@@ -63,6 +71,22 @@ Begin VB.Form Form1 
       _Version        =   393216
       Protocol        =   1
    End
+   Begin VB.Label Label2 
+      Caption         =   "Label2"
+      Height          =   255
+      Left            =   120
+      TabIndex        =   6
+      Top             =   600
+      Width           =   3375
+   End
+   Begin VB.Label Label1 
+      Caption         =   "Label1"
+      Height          =   255
+      Left            =   120
+      TabIndex        =   5
+      Top             =   240
+      Width           =   3375
+   End
    Begin VB.Label Status 
       Caption         =   "Status:"
       Height          =   255
@@ -89,6 +113,9 @@ Dim filterUDPPort As Integer
 Dim fileList As String
 Dim lastModified As String
 
+Dim UDPUpdateTime As Integer
+Dim TCPUpdateTime As Integer
+
 Dim protocolVersion As String
 Dim connected As Boolean
 Dim responseNumber As Integer
@@ -150,10 +177,6 @@ iniError:
     
 End Sub
 
-Private Sub Label1_Click()
-
-End Sub
-
 Private Sub TCPSock_Connect()
     
     responseNumber = 0
@@ -198,9 +221,11 @@ Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
                 TCPSock.SendData "UDPUpdateTime" & vbCrLf
             Case 4:
                 If response = "ERROR" Then GoTo configError
+                UDPUpdateTime = response
                 TCPSock.SendData "TCPUpdateTime" & vbCrLf
             Case 5:
                 If response = "ERROR" Then GoTo configError
+                TCPUpdateTime = response
                 TCPSock.SendData "ENDCONFIG" & vbCrLf
             Case 6:
                 If Not response = "OK" Then GoTo configError
@@ -225,6 +250,8 @@ 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"
         End Select
     Else