首先將下面的代碼粘貼到表單中。
暗淡？科爾？作為？新的？收藏品
私人？Sub？UserForm_Initialize()
暗淡？我？作為？整數
暗淡？myc？作為？cmds
為了什麽？我？=?1?去哪？12?有多少標簽被更改為？號碼；金額；多少；多少
設置？myc？=?新的？cmds
設置？myc.cmd？=?我。控件(“標簽”)？& amp？我)
col.Add？真菌學
然後
設置？myc？=?沒有任何東西
結束？Sub然後插入壹個類模塊，將其重命名為cmds，並粘貼以下代碼。
公共？WithEvents？cmd？作為？MSForms。標簽
私人？Sub？cmd_Click()
msgbox？cmd.name
結束？請註意，標簽的名稱不能更改，將使用默認值。