[Microformt]

السلام عليكم أخي جرب هذا الكود

كود :

Private Sub Form_Load()
Text1.Text = Date
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Text1.Text = MonthView1.Value
End Sub

الرجاء الدعاء

---

إذا كان لديك استفسار اخر انا حاضر

----------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
في الاول لك منجي جزيل الشكر والتقدير اخي على تقدم الدعم الفني
الثاني سوف يكون لنا عظيم الشرف احد تلميذك
الثالث ما اجود انواع برامج انشاء التقراير والتى تعمل مع بيسك 6 بدون مشاكل ؟
ولكم مني فائق الاحترام والتقدير