[asto]

اولا ليكن لدينا فورم 1 فيه تكست بوكس

كود :

Text1.Text = ""
Form2.Visible = True
form1.hide
نضع هذا الكود ضمن كوماند او ضمن
Private Sub Text1_Click()

End Sub

و اداة microsoft calendar contol



حيث نضعها في فورم جديد و ليكن فورم 2
و هذا هو الكود

كود :

Private Sub Form_Load()
Calendar1.Value = DateTime.Date
End Sub
Private Sub Calendar1_Click()

form1.text1.text=Calendar1.Value
form2.hide
form1.show
End Sub