#Region "Volume Control"
Private Declare Function SendMessageA Lib "user32" (ByVal Hwnd As IntPtr, ByVal Message As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Const WM_APPCOMMAND As Integer = &H319
Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000
Private Const APPCOMMAND_VOLUME_DOWN As Integer = &H90000
Private Const APPCOMMAND_VOLUME_UP As Integer = &HA0000
Public Sub ToggleVolumeMute()
SendMessageA(Me.Handle, WM_APPCOMMAND, Me.Handle, APPCOMMAND_VOLUME_MUTE)
End Sub
Public Sub VolumeUp()
SendMessageA(Me.Handle, WM_APPCOMMAND, Me.Handle, APPCOMMAND_VOLUME_UP)
End Sub
Public Sub VolumeDown()
SendMessageA(Me.Handle, WM_APPCOMMAND, Me.Handle, APPCOMMAND_VOLUME_DOWN)
End Sub
#End Region
Copyright © 2024, NextGenUpdate.
All Rights Reserved.