Private Sub Form_DblClick() '鼠标双击事件
End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) '鼠标弹起事件
If Button=2 then '如果为鼠标右键则 '……此处添加弹出菜单代码 End IfEnd Sub