Private Sub Text2_Mousedown(button As Integer, shift As Integer, X As Single, Y As Single)
If button = vbKeyRButton Then
    PopupMenu mnushortcut
End If
End Sub '*******************************************************鼠标右键中的菜单

运行后
在屏幕左上角出现如下菜单：

非常感谢您的回复，右键问题解决了，还有两个小问题想请教下：
1.为何文本框先设置成无效再设置成有效就可以了？
2.鼠标左键功能如何恢复成默认那种，就是可以逐行选择那种？
谢谢~

默认的左键功能是可以任意选择文字的，选择上之后的文字就涂上蓝色底色了。
但是如果自定义了右键功能就无法选择文字了。

非常感谢您的回复，按照您给的代码，鼠标左键可以选择了，并也涂上蓝色底色了，但是一按右键，蓝色底色又没有了。能再指导下么啊？谢谢~

您好，我把我编写的发给您，麻烦再指导下。

OK了，谢谢您了~