動的にDTPickerコントロールを作成する

Question

誰かがVBAで日付ピッカーコントロールを動的に作成する方法について教えてください。 ここに私がやろうとしていることがあります。私は、エンドユーザーがそれを見えるようにするかどうかに基づいて、TextBoxコントロールとComboBoxコントロールをVBAユーザーフォームに動的に追加するマクロを持っています。可視性（および他のすべてのコントロールプロパティ - 幅、高さなど）は、Excelの「マスター」シートで提供されるコントロール名に対してYes/No値を更新することによって、エンドユーザーによって制御されます。

これは、私はテキストボックスのためにやったことで、コンボボックスは

`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` 

を制御私の質問は、私はテキストボックスとコンボボックスを追加してい方法のように、動的に日付ピッカーを追加するにはどうすればよいです。私はそれを行うための正しい方法をControls.Addを使用して？もしそうなら、どうしたらいい？誰かがこれで私を助けることができます！ 私の質問が理に適ってくれることを願っています。

Answer 1

これを試してください：あなたは

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