在listbox中加入checkbox控件方法的求助

请大家帮忙，如何加入checkbox 控件，因为我在做仓库管理系统，要在listbox中加入权限的设置，请大家帮帮我
Private WithEvents NewCheck As CheckBox
If NewCheck Is Nothing Then
For i = 0 To 20
Set NewCheck = Controls.Add("vb.checkbox", "chk" & i, frmAddUser)
NewCheck.Top = NewCheck.Top + 100 * i
NewCheck.Visible = True
Next i
End If
以上没有用，只能加入一个，而且不在listbox 中，如果把frmAddUser换成listbox 则有错误，listbox不是有效的容器，但我看别人都可以阿