by scott93727 (5 Submissions)
Category: Windows API Call/Explanation
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating:
(3 Votes)
Just label a menu name or draw a and command button aand click on the item and paste in the code and your ready to go.
Brings up the windows mixer for easy audio adjustments, works with all win versions
Code Returns
Brings up the windows mixer for easy audio adjustments, works with all win versions
Dim retval
On Error Resume Next
retval = Shell("c:\windows\sndvol32", 1)
On Error Resume Next
retval = Shell("c:\windows\system32\sndvol32", 1)