Olha tenta assim...

 

coloque a propriedade "Format = dtpCustom"

 

Depois use os códigos abaixo:

 

'para "limpar" a DtPicker

Private Sub Command1_Click()
DTPicker1.CustomFormat = Space(8) 'dd/mm/yyyy = 8 posições
End Sub

 

'Para escolher novamente a data

Private Sub DTPicker1_Change()
DTPicker1.CustomFormat = vbNullString
End Sub

 

Espero q te ajude de alguma forma

 

t+