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()就可以了