出问题了,不知道如何怎么搞定,急急啊!!!!! 求助!!!

使用弹出菜单,
在text文本框中实现复制和粘贴操作。
在复制字符后，执行粘贴操作时不能使复制菜单项不可用。

代码如下:
Dim st$
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Form1.PopupMenu editmenu, vbPopupMenuLeftAlign
End If
End Sub

Private Sub editcopy_Click() '复制函数
editcopy.Enabled = True
editcut.Enabled = True
st = Text1.SelText
End Sub
--------------------编程问答-------------------- 估计是不是每次弹出都新建对象导致重新变为初始状态?
还是你的代码执行顺序问题,单步调试过没有?
现在主要是你的代码不完整,把问题说得详细点吧. --------------------编程问答-------------------- 你这是.net的代码吗？把使复制菜单不可用的代码也贴上来啊

补充：.NET技术 ,  VB.NET