Private Sub Form_Load()
     Dim i     As Integer
     For i = 1 To 5
          Load Frame1(i)
          Load Label1(i)
          With Frame1(i)
               .Top = Frame1(i - 1).Top + Frame1(i - 1).Height + 105
               .Visible = True
               .Caption = "Frame " & CStr(i + 1)
          End With
          With Label1(i)
               .Top = Frame1(i).Top + 50
               .Visible = True
               .Caption = "Label " & CStr(i + 1)
          End With
     Next i
 
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!