[ALBRNS]

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

ضع 2 ComboBox وCommand على الفورم

وضع الكود التالي

PHP كود :

Private Sub Command1_Click()
Dim m, y, DaysInMonth As Integer
m = Combo1.ListIndex + 1
y = Combo2.Text
DaysInMonth = DateSerial(y, m + 1, 1) - DateSerial(y, m, 1)
MsgBox DaysInMonth
End Sub
Private Sub Form_Load()
Combo1.Text = "اختر الشهر"
Combo2.Text = "اختر السنة"
Combo1.AddItem "يناير"
Combo1.AddItem "فبراير"
Combo1.AddItem "مارس"
Combo1.AddItem "ابريل"
Combo1.AddItem "مايو"
Combo1.AddItem "يونيو"
Combo1.AddItem "يوليو"
Combo1.AddItem "اغسطس"
Combo1.AddItem "سبتمبر"
Combo1.AddItem "اكتوبر"
Combo1.AddItem "نوفمبر"
Combo1.AddItem "ديسمبر"
For A = 1 To 2999
Combo2.AddItem A
Next
End Sub 


بالتوفيق