How do I create command buttons on the fly?

If you want to add a CommandButton, at runtime, use this code.

Private Sub Command1_Click()

     Controls.Add "VB.CommandButton", "Command1"
     Me!Command1.Move 0, 0
     Me!Command1.Caption = "My Button"
     Me!Command1.Visible = True

End Sub