textbox如何实现右键菜单?

ugl

请教如何实现userform窗口上textbox右键菜单?我只想能像excel那样实现右键复制/剪切/粘贴功能,百度了一下,excel vba中用如下代码可以实现:


Sub 添加快捷菜单()
Dim mypup As CommandBar
Dim com As CommandBarButton
Dim x
删除命令
Set mypup = Application.CommandBars.Add(Name:="ABC", Position:=msoBarPopup)
   For x = 1 To 4
    Set com = mypup.Controls.Add
     com.Caption = Choose(x, "兰色幻想", "小妖", "小佩", "展翅")
     '这4个是加的按钮的名字， 可以改成你自己的， 比如复制粘贴等
      
     com.FaceId = 17 + x
     com.OnAction = "A"
     '这句是指定的宏的名字， 可以改成你自己的宏， 比如复制 ，粘贴功能宏
   Next x
End Sub

Sub 删除命令()
  Application.CommandBars("ABC").Delete
End Sub

但这个代码在cad vba中说commandbar是无效类型,请教该如何修改可以实现?