CreateThread by Activex Exe In vb6(Support Shared variables)

[xiaoyao]

CreateThread by Activex Exe In vb6(Support Shared variables)

ActivexExeThread.bas
Public Src As String '主变量
Public MEM(0) As String
Public x As Long

Public ABC As Long, X2 As Long
Public AbcArr(0) As Long

in thread forms:
Private Sub ShowSrcAbc_Click()
Dim OldAbc As Long
'AbcArr(X2)=abc
'MEM(x) =src
OldAbc = AbcArr(X2)
MEM(x) = "test:" & Now
AbcArr(X2) = AbcArr(X2) + 1
MsgBox "Src=" & MEM(x) & vbCrLf & "Old Abc=" & OldAbc & vbCrLf & "New ABC=" & AbcArr(X2), , "ThreadID = " & App.ThreadID
End Sub

in main form:
MsgBox "Src=" & Src & vbCrLf & "ABC=" & ABC, , "threadid=" & App.ThreadID

v2CreateThread by Activex Exe In vb6.zip