vba动态创建复选框onclick事件

Question

我有一个从Excel工作表上的列表创建的用户窗体的复选框列表。 我想要一个额外的复选框，当选中时，正在测试列表中所有复选框的标题值。如果与目标字符串匹配，则还应检查这些复选框。 我可以创建列表，但在创建和触发事件后引用复选框是个问题。到目前为止，这就是我的全部内容：

Private Sub UserForm_Initialize()

Dim curColumn   As Long
Dim LastRow     As Long
Dim i           As Long
Dim chkBox      As MSForms.CheckBox

curColumn = 1 'column index

LastRow = Worksheets("Parts").Cells(Rows.Count, curColumn).End(xlUp).Row

For i = 2 To LastRow
    Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i)
    chkBox.Caption = Worksheets("Parts").Cells(i, curColumn).Value
    chkBox.Left = 5
    chkBox.Top = 25 + ((i - 1) * 20)
    chkBox.Width = 200
Next i

End  Sub