VB 设置系统音量中的波形为0

Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer

Private Sub SetVolume()  
Dim a, i As Long  
Dim tmp, vol As String  
vol = "0"  
tmp = Right((Hex(vol + 65536)), 4)  
vol = CLng("&H" & tmp & tmp)  
a = waveOutSetVolume(0, vol)  
End Sub  

使用时调用SetVolume()就可以了