--- experimental/host/vb_net_test/nettest.frm	2001/02/23 17:08:37	1.15
+++ experimental/host/vb_net_test/nettest.frm	2001/02/23 17:31:44	1.16
@@ -139,6 +139,9 @@ Dim TCPUpdateTime As Integer
 
 Dim protocolVersion As String
 Dim connected As Boolean
+
+'Dim CUpTime As New CUpTime
+
 Dim responseNumber As Integer
 
 Private Sub Form_Load()
@@ -335,7 +338,7 @@ Private Sub Timer1_Timer()
         ' prepare the contents of the XML packet.
         seqNo = seqNo + 1
         machineName = TCPSock.LocalHostName
-        localIP = TCPSock.localIP
+        LocalIP = TCPSock.LocalIP
         packetDate = Date2Num()
         
         
@@ -382,7 +385,7 @@ Private Sub Timer1_Timer()
         swapFree = memory& \ 1024
         
         ' build the contents of the XML packet
-        xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & localIP & """>" & _
+        xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
               "<os>" & _
                 "<name>" & osName & "</name>" & _
                 "<version>" & osVersionMajor & "</version>" & _