Private Sub Form_Load()
Dim k As Integer
 
'Obermenus Anlegen
For k = 1 To 10
    Load TEST(k)
    TEST(k).Visible = True
    TEST(k).Caption = k & "_"
Next
 
'Untermenus Anlegen
For k = 1 To 10
Load Sub_Menu(k)
    Sub_Menu(k).Visible = True
    Sub_Menu(k).Caption = k & "_Sub"
Next
 
End Sub