ماسبق ان وعدتكم به (المزيد من الاغلال)حقل التاريخ

سنستخدم هذه المره الاداة Calendar وسنضعها داخل فورم منفصل وسنربطها من الحقول التي نريد ان نعمل للمستخدم الاغلال بها ..وهذه هديتي للجميع ارجوا ان تعجبكم واذا كان احد الاخوه يريد ان يطورها او يضيف عليها شي من فنونه فله مطلق الحريه

Private Sub Calendar1_Click()
If Form1.Enabled = True Then
    If Form1.Text1.Enabled = True Then
        Form1.Text1.Text = Calendar1.Year & "/" & Calendar1.Month & "/" & Calendar1.Day
            Form1.Text1.Enabled = False
                Form1.Text2.SetFocus
Else
Form1.Text1.Text = Calendar1.Year & "/" & Calendar1.Month & "/" & Calendar1.Day
    Form1.Text1.Enabled = False
        Form1.Text2.SetFocus
End If
End If
        Unload Me

End Sub

وهذا هو الجزء الخاص بالفورم الذي توجد به حقول التاريخ 
ووضعت زر امر للتعديل على التاريخ وهذا كمثال ان احببت ان تغير التاريخ

Private Sub CmdEdit_Click()
        ''if you want to change the date use (enabled=true)''
            Text1.Enabled = True
    End Sub
    Private Sub Text1_GotFocus()
        Form2.Show
    End Sub