Option Explicit

Private Sub Form_Load()
    Dim Row1
    
    For Row1 = 1 To 3
        Load cmdButton(Row1)
        cmdButton(Row1).Top = cmdButton(0).Top + cmdButton(0).Height
        cmdButton(Row1).Value = True
    Next Row1
'    Load cmdButton(1)
'    cmdButton(1).Left = 120
'    cmdButton(1).Visible = True
'
'    Load cmdButton(2)
'    cmdButton(2).Left = 1235
'    cmdButton(2).Visible = True
'
'    Load cmdButton(3)
'    cmdButton(3).Left = 2340
'    cmdButton(3).Visible = True
End Sub