怎样动态引用ocx控件？

Question

dll文件我知道怎么引用，
dim myobj as object
set myobj=createobj(***)但OCX这样引用就不行，请高手指点我？谢谢！

Answer 1

http://community.csdn.net/Expert/topic/3208/3208396.xml?temp=.7120325'窗体上放一个picturebox，名为Picture1
Dim WithEvents Command1 As CommandButtonPrivate Sub Form_Load()
Set Command1 = Controls.Add("vb.commandbutton", "command1", Picture1)
With Command1
.Move 300, 300, 1800, 450
.Caption = "我是打哪来的^o^"
.Visible = True
End With
End SubPrivate Sub Command1_Click()
MsgBox "乱按什么啊^&^！！！！" & Chr(10) & Chr(10) & "不理你了！！！", 48
Me.Controls.Remove Command1
End Sub