Vba 动态创建DTPicker控件

有人可以指导我如何在VBA中动态创建日期选择器控件吗？ 这就是我要做的。我有一个宏，可以根据最终用户是否希望文本框和组合框可见，将文本框和组合框控件动态添加到VBA用户窗体中。可见性（以及所有其他控件属性宽度、高度等）由最终用户根据excel中“主控”表中提供的控件名称更新是/否值来控制

这就是我为TextBox和ComboBox控件所做的

`sub test()
 ---- some code

 Dim txtTextBox As MSForms.TextBox
 Dim cmbComboBox As MSForms.ComboBox

 If 'some cell in excel ‘Master’ worksheet' = "ComboBox" Then
 Set cmbComboBox = UserForm.Controls.Add("Forms.ComboBox.1", 'some cell in excel ‘Master’ worksheet')
 cmbComboBox.top = 'some cell in excel ‘Master’ worksheet'
 cmbComboBox.left = 'some cell in excel ‘Master’ worksheet'
 cmbComboBox.Width = 'some cell in excel ‘Master’ worksheet'
 cmbComboBox.height = 'cell in excel ‘Master’ worksheet'

  ----rest of my code
  end sub`

我的问题是，如何动态添加日期选择器，就像添加文本框和组合框一样。我正在使用控件。添加正确的方法吗？如果是这样，我该怎么做？有人能帮我解决这个问题吗！ 希望我的问题有意义

试试这个：

Dim dtDatePicker As Object
Set dtDatePicker = UserForm.Controls.Add("MSComCtl2.DTPicker", "dtp", True)
' Do whatever you want with dtDatePicker control here!

你看到了吗