vb6 动态生成的控件，怎么写控件的事件代码

Question

我动态生成了一个按钮
    Dim b As CommandButton
    Set b = Controls.Add("VB.CommandButton", "a2")
    b.Top = 0
    b.Left = 0
    b.Height = 100
    b.Width = 200
    b.Visible = True
我不知道怎么写这个按钮的单击代码？

Answer 1

Dim WithEvents btn As CommandButton

Answer 2

Private Sub btn_Click()
    'Your click code
End Sub

Answer 3

Private WithEvents b As CommandButtonPrivate Sub Command1_Click()  Set b = Controls.Add("VB.CommandButton", "a2")
  b.Top = 0
  b.Left = 0
  b.Height = 100
  b.Width = 200
  b.Visible = True
End SubPrivate Sub b_Click()
  MsgBox "a2"End Sub

Answer 4

Dim WithEvents Com1 As CommandButton
Private Sub Form_Load()
    Set Com1 = Controls.Add("VB.CommandButton", "ccc1")
    Com1.Caption = 1
    Com1.Visible = True
    Com1.Move 840, 480, 1455, 375
End Sub
Private Sub Com1_Click()
    Com1.Caption = "ABC"
End Sub