این کد هم برای ایجاد دو Command :نقل قول:
کد:
Private Sub Command1_Click()
Set cmd1 = Me.Controls.Add("vb.Commandbutton", "cmd1")
cmd1.Visible = True
Set cmd2 = Me.Controls.Add("vb.Commandbutton", "cmd2")
cmd2.Left = 2000
cmd2.Visible = True
End Sub
* فقط کافیه اون 2 رو به 3 تغییر بدید تا کنترل جدید ایجاد بشه !