实时错误‘424’ 要求对象？？？？在一个远程控制的服务器端的程序中

Question

按一本书上的内容，输入了下面的程序，可提示说:实时错误‘424’ 要求对象
哪位达人知道是怎么回事啊Private Declare Function getwindowsdirectory Lib "kernel32" Alias "getwindowsdirectoryA" (ByVal lpbuffer As String, ByVal nsize As Long) As Long
Private Sub Form_Load()
server.LocalPort = 1001
server.Listen
End Sub
Private Sub server_connectionrequest(ByVal requestid As Long)
'检查控件的state属性是否为关闭的？如果不是，在接受新的连接前先关闭此连接
If server.State <> sckClosed Then server.Close
'接受具有requestid参数的连接
server.Accept requestid
End SubPrivate Sub server_dataArrival(ByVal bytesTotal As Long)
Dim strdata As String
server.GerData strdata
Select Case strdata
Case "WINPATH"
winpath = String(255, 0)
lenpath = Left(winpath, InStr(1, winpath, Chr(0)) - 1)
server.SendData "window path=;" & winpath
Case "logoff"
exitWindowsEx EWX_LOGOFF, 0
Case "shutdown"
exitWindowsEx EWX_SHUTDOWN, 0
Case "reboot"
exitWindowsEx EWX_REBOOT, 0
End Select
End Sub

Answer 1

server不是在winsock中包含的吗？