VB错误问题

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ewx
ewx = ExitWindowsEx(EWX_LOGOFF, 0)
End Sub

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const EWX_LOGOFF = 0
为什么会错 给我解出来 要多少分说
Private Sub Form_Load()
Winsock1.LocalPort = 1024
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ewx
ewx = ExitWindowsEx(EWX_LOGOFF, 0)
End Sub

VB编程的错误等等问题... vb中实时错误的问题 关于vb的问题 编译错误 VB 的问题``function 带值错误~~ VB写入Access2000数据类型转换错误问题 vb 错误？ VB 问题(有源码)，帮忙看哪里错误！ VB使用select语句查询出现错误的问题 VB连接数据库问题 实时错误94 无效使用NULL VB中ADODB连接SQL的错误处理问题