可以使用TextBox控件来组合实现:
Private Sub Form_load()
With Text1
.Left = DTPicker1.Left
.Top = DTPicker1.Top
.Width = DTPicker1.Width - 240
.Height = DTPicker1.Height
.Locked = True
.Text = Format(Date, "YYYY-MM-DD")
.BackColor = vbGreen
.ZOrder 0
End With
End Sub
Private Sub DTPicker1_Change()
Text1.Text = DTPicker1.Value
End Sub