Code:
Set DTP = Me.Controls.Add("MSCOMCTL2.DTPicker.2", "DTP1")
it seems to be the above, but there is another problem.
"MSCOMCTL2.DTpicker.2" cannot be added because it is referenced but not in use by any items in the project. To correct this, uncheck 'remove information about unused ActiveX controls' in the project options
Code:
Private Sub Form_Load()
Set DTP = Me.Controls.Add("MSCOMCTL2.DTPicker.2", "DTP1")
DTP.Height = 500
DTP.Width = 500
DTP.Top = 500
DTP.CheckBox = True
DTP.Value = Now
DTP.Visible = True
End Sub