سؤال عن الكلندر

السلام عليكم ورحمة الله

Private Sub Calendar1_Click()
Text1.Text = Calendar1.Value
End Sub

Private Sub Command1_Click()
Calendar1.Visible = True
End Sub

hoاخييييييييي في غلط بالكود ياريت تعدلو؟؟

ما هو الغلط يا أخي؟

تم الحل واشتغلت بنجااااح

شكرااااااااااااااااااااااالك