VB中自定义控件的实现？

Question

我现在想设计个程序，首先需要自定义好一个控件，画面上点击一个Button自定义的控件就会弹出一个，每点一下弹出一个，而且能随意拖拉这些控件的位置。
这个自定义控件怎么开发啊？能拖拉的功能又怎么实现呢？给个提示就行。，
小弟是刚学VB，请大师指点。。谢谢了

Answer 1

怎么能让动态的生成用户控件呢，程序初始化的时候没有，点下Button出来一个点下Button出来一个点下

Answer 2

Private Sub Command1_Click()
    Dim n As Long
    n = Label1.Count
    Load Label1(n)
    Label1(n).Move 100, 200 * n
    Label1(n).Caption = "控件:" & n
    Label1(n).Visible = True
    Label1(n).ZOrder
End Sub自定义控件是一样的

Answer 3

好像不行啊。
比如说我定义了个用户控件叫“US1”，现在要在窗体上点击Button动态加载这个控件。
Private Sub Command1_Click()
Dim WithEvents oControl As VBControlExtender
Set oControl = Controls.Add("US1", "MapView")
End Sub运行会在“US1”那提示错误“无效的类串”。这是怎么一回事尼。。

Answer 4

将你的自定义控件设为控件数组
 Load oControl(1)
 Load oControl(2)就行了