--- experimental/host/vb_net_test/nettest.frm	2001/02/23 13:23:53	1.13
+++ experimental/host/vb_net_test/nettest.frm	2001/02/23 13:27:09	1.14
@@ -141,7 +141,6 @@ Dim connected As Boolean
 Dim responseNumber As Integer
 
 Private Sub Form_Load()
-    x = MsgBox(Date2Num())
     
     protocolVersion = "1.1"
     
@@ -332,7 +331,7 @@ Private Sub Timer1_Timer()
         localIP = TCPSock.localIP
         machineName = TCPSock.LocalHostName
         seqNo = seqNo + 1
-        packetDate = Now()
+        packetDate = Date2Num()
         xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & localIP & """>" & _
               "" & _
               "" & _
@@ -369,5 +368,7 @@ Private Sub Timer1_Timer()
 End Sub
 
 Function Date2Num() As Long
-    Date2Num = DateDiff("s", "1-1-1970", Now)
+    Dim x As Long
+    x = DateDiff("s", "1-1-1970", Now)
+    Date2Num = x
 End Function