vb.net控制系统音量

Imports System.Runtime.InteropServices
Public Class Form1
    Private mute As Integer = &H80000
    Private up As Integer = &HA0000
    Private down As Integer = &H90000
    Private WM_APPCOMMAND As Integer = &H319
 
    <DllImport("user32.dll")> _
    Public Shared Function SendMessageW(hWnd As IntPtr, Msg As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
    End Function
    '加大
    Private Sub btnUp_Click(sender As System.Object, e As System.EventArgs) Handles btnUp.Click
        SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(up))
    End Sub
    '减小
    Private Sub btnZero_Click(sender As System.Object, e As System.EventArgs) Handles btnZero.Click
 
        SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(mute))
    End Sub
    '静音
    Private Sub btnDown_Click(sender As System.Object, e As System.EventArgs) Handles btnDown.Click
        SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(down))
    End Sub
End Class