用API函数waveOutSetVolume
Public Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
uDeviceID :音频设备的ID号。默认-1或0皆可
dwVolume:其中用到结构:
Type VolumeSetting
    LeftVol As Integer'左声道
    RightVol As Integer'右声道
End Type
可以使用copymemory函数把VolumeSetting值复制到dwVolume中,只要把左右声道值设置好就可以了