想做个客户端与服务器的时间同步软件，客户端与服务器都显示各自本地时间并计时。当客户端连接服务器后，服务器将时间发送到客户端，并显示在文本框中，但是传回来的是个时间点，我加了个Timer计时，但是没用，不知道问题出在哪里，麻烦大家帮我看看····谢谢啦！
Option Explicit
Dim rectime As String
Private Sub Form_Load()
    StatusBar1.Panels.Item(1).Text = "客户端"
    StatusBar1.Panels.Item(2).Text = "网络状态：空闲"
End Sub

Private Sub Timer1_Timer()
Text4.Text = Date & " " & Time           '显示客户端当前时间

End Sub
Private Sub Command1_Click()             '连接时间服务器
 If Winsock.State <> sckClosed Then
 Winsock.Close                           '如果不是则关闭连接
End If

If Text2.Text = "" Then
    MsgBox "服务器端口不能为空，请输入端口号！"    '服务器端口为空则提示用户
    Exit Sub
 Else
    Winsock.RemoteHost = Text2             '设置服务器IP地址
    Winsock.RemotePort = Text3             '设置服务器端端口
 End If
 Winsock.Connect                          '进入连接
 StatusBar1.Panels.Item(2).Text = "网络状态：已连接"     '显示网络状态
End Sub
Private Sub winsock_dataarrival(ByVal bytestotal As Long)      '接收数据
 Winsock.GetData rectime
 Text1.Text = Date & " " & rectime                            '显示服务器端的标准时间
End Sub
Private Sub Timer2_Timer()           ‘（Interval改成1000了   Enabled  ：True）
Text1.Text = Date & " " & rectime
End Sub
Private Sub Command2_Click()
Time = rectime                        '设置系统时间
Text4.Text = Date & " " & Time               '更改客户端时间
End Sub
Private Sub Form_UnLoad(cancel As Integer)    '程序结束时关闭winsock控件
 Winsock.Close
End Sub