[Ahmed_Mansoor]

اأهلا أخي اكريم , إنسخ هذا الكود وإلصقه في داخل كود الفورم في المثال الذي أرفقته :

PHP كود :

Private Sub Form_Load()

Dim I As Integer

For I = 0 To 25
    ms4.TextMatrix(0, I) = "الحظيرة" & I + 1
Next

ms4.TextMatrix(0, 26) = "التاريخ"

ms4.Rows = 32

For I = 1 To 31
    ms4.TextMatrix(I, 26) = Format$(I, "00") & "/03/2015"
Next

End Sub