Dim WithEvents Cmd1 As CommandButton
'
Private Sub Form_Load()
  Set Cmd1 = Controls.Add("vb.commandbutton", "Cmd1")
      Cmd1.Width = 2000
      Cmd1.Top = Me.Height / 2 - Cmd1.Height / 2 - 100
      Cmd1.Left = Me.Width / 2 - Cmd1.Width / 2 - 100
      Cmd1.Caption = "Dynamic Button"
      Cmd1.Visible = True
      
  Set Cmd2 = Controls.Add("vb.commandbutton", "Cmd2")
      Cmd2.Width = 2000
      Cmd2.Top = 10
      Cmd2.Left = 10
      Cmd2.Caption = "Dynamic Button 2"
      Cmd2.Visible = True
End Sub
'
Private Sub Cmd1_click()
  MsgBox "I have been Created Dynamically at Run-time", _
    , "Dynamic Controls"
End Sub