Dear Friends,

i am using Vb 6

and i have 2 text box on a form and both are dates

and the code is :

Code:
Public date1 As Date
Public date2 As Date

Private Sub Form_Load()


Text1.Text = Format(Date, "dd-mmm-yy")
Text2.Text = Format(Date + 2, "dd-mmm-yy")

End Sub

Private Sub Text1_LostFocus()
date2 = Format(date1, "dd-mmm-yy") + 2
Text2.Text = date2
   
End Sub

actully what i want is, that IF Text1Box change the date Text2Box should add 1 day into it!

thanks