我想用VB从服务端读取服务器端的时间!

我的VB实现
class UDP:
Option Explicit
Public Enum bReceiveAll
OnePacketOnly = False
ReceiveAll = True
End Enum

Private WithEvents WSock As Winsock
Private WithEvents TCounter As Timer

Private m_bError As Boolean
Private m_bReceiveAll As Boolean

Public m_sSendData As String
Public m_sResponse As String

Private Sub TCounter_Timer()

TCounter.Enabled = False
WSock.Close
m_bError = True
End Sub

Private Sub WSock_Close()
WSock.Close
TCounter.Enabled = False
End Sub

Private Sub WSock_DataArrival(ByVal bytesTotal As Long)
Dim strData As String