VB6 Threaded Forms (simple Demo)

[xiaoyao]

how to add usercontrols on forms object in thread?
(your project can add ocx,but can't support vb6 usercontrol)
Code:

Private obj As Object

Private Sub Command1_Click()
On Error GoTo ERR

Set obj = Me.Controls.Add("Project1.UserControl1", "UserControl1B")
obj.Visible = True
MsgBox obj.Width
  Exit Sub
ERR:
  MsgBox "ERR:" & ERR.Number & "," & ERR.Description
End Sub

sub test2
Dim ctlName As Control
Set ctlName = Form1.Controls.Add("Project1.UserControl1", "Text1", Form1)
ctlName.Visible = True
end sub

download【http://www.vbforums.com/attachment.p...059696】