使用WinSock控件编写程序时遇到问题。

[tfront]

Public Sub KillMe()
SendMessageToMe (MakeSysString("Killme:" & strUserName))
End Sub

Private Function MakeSysString(ByRef WillSendString As String) As String
WillSendString = "/sys:" & WillSendString
MakeSysString = WillSendString
End Function

Public Sub SendMyName()
SendMessageToMe (MakeSysString("MyName:" & strUserName))
End Sub

Private Sub SendMessageToMe(ByRef SendString As String)
myWinSockObj.SendData SendString
End Sub

SendMyName就可以正常收到，而Killme发送的数据对方就无法收到，根本没有DataArrival事件。
这是调用Killme的过程：
Private Sub mnuExit_Click()
Dim objTmpPerson As clsPerson
On Error Resume Next
For Each objTmpPerson In colActiveUser
objTmpPerson.KillMe
' objTmpPerson.SendMyMessage ("我走了，拜拜")
Set objTmpPerson = Nothing
Next objTmpPerson
End
End Sub

请高手帮忙。

[oo渣渣oo]

我想问题就出在objTmpPerson.KillMe后紧接就Set objTmpPerson = Nothing上面,你试试这样:

在SendMessageToMe的最后加一句DoEvents

[tfront]

果然就是这样，太感谢了，这个东东我弄了1个星期了。
怎样给你加分？

[zs8816685]

哈哈,我都试过因为这个问题搞了1个多星期.