动态加载控件问题.在线等.......

Question

'功能: 双击 text1 后 动态加载 MonthView 控件  触发 MonthView 的 dbClick 事件.把选择的日期返回到 text1.text 中下面是测试代码:'新建类模块
Option Explicit
public mdate as date
Private WithEvents mvarCmBtn As MonthView
Public Property Set CmBtn(ByVal vData As MonthView)
    Set mvarCmBtn = vData
End Property
Public Property Get CmBtn() As MonthView    Set CmBtn = mvarCmBtn
End PropertyPrivate Sub mvarCmBtn _DateDblClick(ByVal DateDblClicked As Date)
mdate = DateDblClicked
End Sub
'测试窗体代码：
Option Explicit
Dim a() As Class1Private Sub Command1_Click()
Me.Controls.Remove Me.Controls("cmdobj3") '删除控件
End SubPrivate Sub Form_Load()
ReDim a(1)
Dim i As Integer
For i = 0 To 1
Set a(i) = New Class1
'到了这一句就出错.运行时提示 "无效的字串,查找带 progid: VB.MonthView 的对象" 
Set a(i).CmBtn = Me.Controls.Add("VB.MonthView", "cmdObj" & i)
a(i).CmBtn.Visible = True
a(i).CmBtn.Top = i * 500
Next i
End Sub加载MonthView 的 ProgID 是多少?  换成其它按钮试了 VB.CommandButton VB.Label程序都可以运行.

Answer 1

是
Me.Controls.Add("Mscomctl2.MonthView", "cmdObj" & i)