调节系统音量

    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Shared Function SendMessage(hWnd As IntPtr, Msg As UInteger, wParam As UInteger, lParam As UInteger) As IntPtr
    End Function
    Private Const WM_APPCOMMAND As UInteger = &H319
    Private Const APPCOMMAND_VOLUME_UP As UInteger = &HA
    Private Const APPCOMMAND_VOLUME_DOWN As UInteger = &H9
    Private Const APPCOMMAND_VOLUME_MUTE As UInteger = &H8

    Private Sub VolumeDown()　'音量减少2
        SendMessage(Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000)
    End Sub

    Private Sub VolumeUp()　'音量增加2
        SendMessage(Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000)
    End Sub

    Private Sub ToggleMute()　'静音与恢复
        SendMessage(Handle, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000)
    End Sub