Private Sub Command6_Click()
MediaPlayer1.Volume = MediaPlayer1.Volume + 400
End Sub






这里一个按钮控制音量增大的代码，可是不知道为什么当按两次或者按几次总会弹出如图一样的错误

不是吧，我看到的是在VB中mediaplayer控件的取值在-9640~0之间

是在超出范围时发生的
我加了一句
On Error Resume Next
就解决了！