动态加载按钮

一个程序实现动态加载 20 个按钮，并编写响应不同的按钮单击的事件代码动态加载 我都加了  就是后面（编写响应不同的按钮单击事件） 我不会大家帮我看看 这个是加载按钮~~
Private Sub mnuoperate_Click(index As Integer)Dim intindex As Long
'根据INDEX值判断点击了哪个菜单项
Select Case index
Case 0
'增加20个菜单项，注意不能增加INDEX值已经存在的项
 For intindex = 2 To 21
 Load mnuoperate(intindex)
   mnuoperate(intindex).Caption = "增加的菜单项" & CStr(intindex)
      Next intindex
Case 1
’删除刚才添加的菜单项
For intindex = 2 To 21
Unload mnuoperate(intindex)
    Next intindex
    Case Else
  MsgBox "点击了第" & index & "个菜单...", vbInformation + vbOKOnly, "动态菜单"
  End Select
  
End Sub