我晕了，兄弟，我是来告诉你好消息的，右键菜单我没找到方法，就得用上面那位朋友的方法，做右键事件，不过最好不要用MSGBOX，因为如果那样的话，窗体上如果有TIMER会停止响应的，所以用RealAudio1.AboutBox，另外就是左上角的那两个按钮的问题了，这个控件有一个属性是DRAGMODE 默认是0，变成1就没那东西了，晕死我了，无意中一改发现没了，哈哈 zhuanyou兄弟: 实在不行的话就用sendkey函数 在下面三处加上 SendKeys "{ESC}" ，但觉得不够完美。 ------------------------------------------------- Private Sub RealAudio1_OnLButtonDown(ByVal nFlags As Long, ByVal nX As Long, ByVal nY As Long) SendKeys "{ESC}" End Sub Private Sub RealAudio1_OnMouseMove(ByVal nFlags As Long, ByVal nX As Long, ByVal nY As Long) SendKeys "{ESC}" End Sub Private Sub RealAudio1_OnRButtonDown(ByVal nFlags As Long, ByVal nX As Long, ByVal nY As Long) MsgBox "右键禁止" 'RealAudio右键选单一出来就被这个警告窗口给搞掉了 SendKeys "{ESC}" End Sub
