#VB创建多线程应用程序(二) 搜索结果
源代码如下:窗体中的代码:OptionExplicit’开始PrivateSubCommand1_Click()OnErrorResumeNextWithmyThreadleft.InitializeAddressOfFillleft’传递过程地址给线程.ThreadEnabled=T