[Ahmed_Mansoor]

أهلا أختي الكريمه , هذا الكود ضعيه في داخل كود زر :

PHP كود :

Dim Days_Array() As Variant
Dim I As Integer

Days_Array = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")

ReDim Preserve Days_Array(16) As Variant

For I = 7 To 16
    Randomize
    Days_Array(I) = Int((100 * Rnd) + 1)
Next

For I = 0 To 16
    Print Days_Array(I)
Next