بسيطة جدا جدا
اعملها بنفسك
في السطر الثالث في الكود المرفق اللي هو ده
Label4.Caption = Format(Now(), "mm")
زود حرف الـ m كمان مرة ليصبح بهذا الشكل
Label4.Caption = Format(Now(), "mmm")
طبعا لو مش عارف توصل للكود ..اضغط Alt + F11 من لوحة المفاتيح ، كليك يمين من نافذة المشروع على Userform1 واختار أول أمر View Code ..هتلاقي الكود
شفت الموضوع بسيط إزاي