استخدام الاداة............. timer

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

من الأفضل أن يكون هناك فورم رئيسي حتى لو كان مخفي....... تضع به التايمر

في الفورم الرئيسي ويجب ان يكون له مسمى أخر غير مسمى form1

وبأفتراض ان الفورمز تدعى من Form1 الى Form10

Option Explicit
Dim i As Integer
Dim oForm(10) As Form

Private Sub Form_Load()
    Set oForm(1) = Form1
    Set oForm(2) = Form2
    Set oForm(3) = Form3
    Set oForm(4) = Form4
    Set oForm(5) = Form5
    Set oForm(6) = Form6
    Set oForm(7) = Form7
    Set oForm(8) = Form8
    Set oForm(9) = Form9
    Set oForm(10) = Form10
    
    Set Timer1.Index = 10000 '// One Second = 1000 .. so 10 x 1000 !
    i = 1
    Load oForm(1)
    oForm(1).Show
End Sub

Private Sub Timer1_Timer()
    Unload oForm(i)
    i = i + 1
    i = i Mod 10 + 1
    Load oForm(i)
    oForm(i).Show
End Sub

شكرا جزيلا اخى الفاضل