Private Sub DTPicker1_CloseUp()
MsgBox DTPicker.Value 

Private Sub DTPicker1_Click()
MsgBox DTPicker1.Value
End Sub

Private Sub DTPicker1_CloseUp()
Dim i As Long, n As Long
Dim ret As String, ret1 As String, Total As String
Dim Tot As String, box As String, Tax As String, Med As String
Dim Tott As Single

frmPlanDif.MousePointer = vbHourglass
VSGed.Clear flexClearScrollable, flexClearText

Tott =  0 
m.Do "LIZPR2^GonTaxTo", Piece(DTPicker1.Value, ".",  1 ), Piece(DTPicker2.Value, ".",  1 ), "", "", Tax, ret, Med

.
.