多线程有关问题,InvokeRequired总是返回False

多线程问题,InvokeRequired总是返回False
我的一个socket监听类,想向界面控件textbox1里添加监听的信息
代码如下:
Public   Sub   addTxt(ByVal   str   As   String)
                        If   mainForm.TextBox1.InvokeRequired   =   True   Then
                        Dim   d   As   addtextCallback   =   New   addtextCallback(AddressOf   addTxt)
                        mainForm.Invoke(d,   str)
                Else
                        mainForm.TextBox1.Text   +=   str
                End   If
        End   Sub
        Public   Delegate   Sub   addtextCallback(ByVal   str   As   String)
可我使用InvokeRequired时总是返回flase,所以直接进入else.但是界面控件并没有任何显示!!   大家帮我看看啊.

------解决方案--------------------
调用addTxt的代码？

*****************************************************************************
欢迎使用****论坛专用阅读器 : **** Reader(附全部源代码)

最新版本：20070212

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html