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






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

Volume 不能加 400 那么多，它的取值范围只能是 0 ~ 100。所以在加之前，你要检测 Volume 的值加上你要加的数后会不会超出范围。

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

那这个错误一定是在 Volume 属性 + 400 超出了范围的情况下发生的了。

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