请问鼠标邮件的事件（文本框内），有代码怎么写?

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Text1.Text = "ok"
End If
End Sub

好郁闷呀！
代码事找到了，但是又碰到一个问题：我也是按楼上的那样写的，结果一运行点右键，就又提示“至少要有一个子菜单”，我的菜单明明是编辑好的，而且都有子菜单！后来到网上找问题的答案，结果有人说是程序的问题，重装之后就好了，真是莫明其妙！
所谓何解呀？？

先在MDI窗口设置好菜单，并将该菜单设置为“不可见”。再在Text1_MouseDown事件中调用。

楼上的方法已经试过了，还是不管用，真是郁闷！

好象这个问题是不能用常规方法解决地

还有没有人碰到这类问题呀？
楼上说的非常规的方法是指什么呀，重装吗？

重裝VB了