关于给窗体文本框添加右键菜单的问题

oh溜一圈

用一下这段代码已经可以实现给窗体textbox添加右键菜单，但存在bug，每次点选菜单就会自动的更改小键盘的NmLK状态，请高手帮忙看一下问题出在哪儿。在网上搜遍了右键菜单的代码，也就这段好比较好用，就是这个bug暂时还解决不了。

1. Sub ShowBar()
   
2.     Dim oCmdBar As CommandBar
   
3.     Dim oCtrl As CommandBarControl
   
4.     On Error Resume Next
   
5.     CommandBars("txtBar").Delete
   
6.     On Error GoTo 0
   
7.     Set oCmdBar = CommandBars.Add(Name:="txtBar", Position:=msoBarPopup, Temporary:=True)
   
8.     With oCmdBar
   
9.         Set oCtrl = .Controls.Add(Type:=msoControlButton)
   
10.         With oCtrl
    
11.             .Caption = "复 制  Ctrl+C"
    
12.             .OnAction = "Macro1"
    
13.         End With
    
14.         Set oCtrl = .Controls.Add(Type:=msoControlButton)
    
15.         With oCtrl
    
16.             .Caption = "剪 切  Ctrl+X"
    
17.             .OnAction = "Macro2"
    
18.         End With
    
19.         Set oCtrl = .Controls.Add(Type:=msoControlButton)
    
20.         With oCtrl
    
21.             .Caption = "粘 贴  Ctrl+V"
    
22.             .OnAction = "Macro3"
    
23.         End With
    
24.         Set oCtrl = .Controls.Add(Type:=msoControlButton)
    
25.         With oCtrl
    
26.             .Caption = "清 除  Del"
    
27.             .OnAction = "Macro4"
    
28.         End With
    
29.         
    
30.     End With
    
31.     oCmdBar.ShowPopup
    
32. End Sub
    
33. 
    
34. Sub Macro1()
    
35.     Application.SendKeys "^c", True
    
36. End Sub
    
37. Sub Macro2()
    
38.     Application.SendKeys "^x", True
    
39. End Sub
    
40. Sub Macro3()
    
41.     Application.SendKeys "^v", True
    
42. End Sub
    
43. Sub Macro4()
    
44.     Application.SendKeys "{del}", True
    
45. End Sub
    
46. 
    
47. Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
48.     If Button = xlSecondaryButton Then
    
49.         ShowBar
    
50.         CommandBars("txtBar").Delete
    
51.     End If
    
52. End Sub

复制代码

oh溜一圈

或者求一个兼容64位excel的API代码

oh溜一圈

去高手帮帮忙吧