Private Sub Button_Click(Index As Integer)
  MsgBox Button(Index).Caption
End Sub
 
Private Sub Form_Load()
    Dim i As Integer
 
    For i = 1 To 5
        Load Button(i)
        With Button(i)
          .Top = i * 500
          .Visible = True
          .Caption = "Button" & i
        End With
        Load Text(i)
        With Text(i)
          .Top = i * 500
          .Left = 1500
          .Height = 285
          .Width = 500
          .Visible = True
          .Text = "Text " & i
        End With
    Next
End Sub