帮看一下代码，调试的没问题，编译却提示错误。

2010-01-08 10:54:12 170 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Keil调试系统学习：从编译错误到在线调试全过程深入解析Keil调试的各个环节，从处理常见的编译错误到实现高效的在线调试过程，帮助开发者快速定位问题。掌握keil调试技巧，提升嵌入式开发效率，让程序运行更稳定。阅读详情

Dim ClientNum As Integer

Private Sub Command1_Click()
Dim i As Integer

For i = 1 To ClientNum
If Not WSK_Server(i) Is Nothing Then
DoEvents
WSK_Server(i).SendData "服务器:" & Text1.Text
End If
Next
End Sub

Private Sub Form_Load()
WSK_Server(0).LocalPort = 1001
'程序启动时侦听
WSK_Server(0).Listen
End Sub

Private Sub WSK_Server_Close(Index As Integer)
Set WSK_Server(Index) = Nothing
End Sub

Private Sub WSK_Server_ConnectionRequest(Index As Integer, ByVal requestID As Long)
ClientNum = ClientNum + 1
Load WSK_Server(ClientNum) '载入一个新的socket控件

WSK_Server(ClientNum).Accept requestID '接受客户端的请求

WSK_Server(ClientNum).SendData "欢迎光临！！"

End Sub

Private Sub WSK_Server_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim myData As String

WSK_Server(Index).GetData myData
Text2.Text = Text2.Text + myData + vbCrLf

End Sub

Private Sub WSK_Server_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
WSK_Server(Index).Close
Set WSK_Server(Index) = Nothing
End Sub

编译时提示属性无效。。。。。。。这是个接授客户端连接的服务器程序，主要是客户端连接时动态添加wskserver(winsock控件),,动态删除

...全文