こんにちは

このサイトのサンプル集のマルチメディア＞サウンドのボリュームを設定する
を応用してButton4を押すと100下がり、Button5を押すと100上がるのを作りたいのですが、
どうもうまくいきません

どなたか教えていただけないでしょうか？お願いします。
下は僕が書いたものです

    Dim vol As Integer = 1000

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If vol <> 100 Then
            vol = vol - 100
        End If
        Call mciSendString("setaudio MySound volume" to vol, "", 0, 0)
    End Sub