动态创建的命令按钮，如何编写代码激活他？

jxwjlx

  for i=1 to 3
            commandname = "commandA" & f
            Set newcommand = Controls.Add("VB.commandbutton", commandname)
            Set newcommand.Container = newframe
            newcommand.Move Frame0.Width / 3 * 2 - 1100, newoption.Top - 100, 1000, 330
            newcommand.BackColor = &HE0E0E0
            newcommand.Caption = "显示答案"
            newcommand.Font = "黑体"
            newcommand.Visible = True
        next i
  

       Private Sub Timer1_Timer()
          if Controls(commandname)_click then     '例如其中一个单击 ？？为何单击却不无任何反应？？
             msgbox("成功",,)
          endif
       end sub

skdyu

学习学习，谢谢

LionCSQ

Option Explicit

Private WithEvents newcommand As CommandButton

Private Sub Form_Load()
   Dim i As Long
   Dim commandname As String
‘   For i = 1 To 3
      commandname = "commandA" ‘& i
      Set newcommand = Controls.Add("VB.commandbutton", commandname)
      Set newcommand.Container = Me
      newcommand.Move (Me.ScaleWidth - 500) / 2, (Me.ScaleHeight - 165) / 2 - 100, 1000, 330
      newcommand.BackColor = &HE0E0E0
      newcommand.Caption = "显示答案"
      newcommand.Font = "黑体"
      newcommand.Visible = True
’   Next i
End Sub

Private Sub newcommand_Click()
   MsgBox "点击了新生成的按钮“" & newcommand.Caption & "”"
End Sub