多线程操作窗体控件的问题！
Private Delegate Sub SetUserList(ByVal Index As Integer, ByVal subItemIndex As Integer, ByVal str As String)
Private OnLine As New SetUserList(AddressOf SetUserListItem)
Public Sub SetUserListItem(ByVal itemIndex As Integer, ByVal subItemIndex As Integer, ByVal str As String)
Dim obj(2) As Object
obj(0) = itemIndex
obj(1) = subItemIndex
obj(2) = str
If frm_Server.lst_User.InvokeRequired Then
frm_Server.lst_User.Invoke(OnLine, obj)
Else
frm_Server.lst_User.Items(itemIndex).SubItems(subItemIndex).Text = str
End If
End Sub
把线程函数写在窗口类中调用这个委托就可以实现修改，把线程函数写在模块中，再调用此委托的时候frm_Server.lst_User.InvokeRequired 这个值一直返回FALSE，不知道怎么解决
[解决办法]
我也遇到过，但没仔细研究具体原因，只是把delegate部分放在了同一个类中(此处即窗口类)
