vbÔÚÆÕͨģ¿éÖж¨Òåclass³ÌÐòΪʲô»á±ÀÀ££¿

Class1£º
Public.........


Module1£º
Public Declare Function CreateThread Lib "kernel32.dll" ( _
    ByVal lpThreadAttributes As Long, _
    ByVal dwStackSize As Long, _
    ByVal lpStartAddress As Long, _
    ByVal lpParameter As Long, _
    ByVal dwCreationFlags As Long, _
    ByRef lpThreadId As Long) As Long

Public Function MyThread1(sss As Long) As Long
    Dim cla1 As Class1
    Set cla1= New Class1'³ÌÐòÔËÐе½ÕâÀï¾Í±ÀÀ£ÁË£¬ÎªÊ²Ã´?Çëʦ¸µÀ´°ï°ïæ棿
    .........'ÕâÀïÒýÓÃcla1µÄPublicÒ²»á±ÀÀ£
End Function


Private Sub Form_Load()
Dim lRet1 As Long
lRet1 = CreateThread(0, 24096, AddressOf Module1.MyThread1, 0, 0, ByVal 0)      '½¨Á¢Ïß³Ì
End Sub

---

ÔÚ´°ÌåÄ£¿éÖе÷ÓÃһϣ¬¿´ÊÇ·ñÒ²±ÀÀ££¿Èç¹ûÊÇ£¬¾ÍÓбê׼ģ¿éÎ޹أ¬¶øÊÇ´úÂë±¾ÉíµÄÎÊÌâ¡£

---

´ÓÉÏÃæµÄ´úÂëÀ´¿´Ã»Ê²Ã´ÎÊÌâ,¿ÉÒÔÔÚ±ê׼ģ¿éÀïÃæдµÄ.
Ó¦¸ÃÊÇÄãµÄÀàÄ£¿éÀïµÄ´úÂë²»¶Ô
{{