intCMD = intCMD + 1
Load Me.Command1(intCMD)
Me.Command1(intCMD).Caption = "我是按钮" + CStr(intCMD)
Me.Command1(intCMD).Top = Me.Height / 2 + intCMD
Me.Command1(intCMD).Left = Me.Width / 2 + intCMD
Me.Command1(intCMD).Visible = True
intCMD = Me.Command1.UBound
Debug.Print intCMD