自定义Text的pop-up菜单
在 Windows 95, 右击 Textbox 将出现基本的编辑菜单。如果你想改变该菜单，
可将以下的代码放到 Textbox 的 MouseDown 事件中。

If Button = vbRightButton Then
Text1.Enabled = False
Text1.Enabled = True
Text1.SetFocus
PopUpMenu Menu1
End If