Try this
<Runtime.InteropServices.DllImport("winmm.dll")> _
Public Shared Function waveOutSetVolume(ByVal hwo As IntPtr, ByVal dwVolume As UInteger) As Integer
End Function
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Dim NewVolume As Integer = ((UShort.MaxValue / 10) * TrackBar1.Value)
' Set the same volume for both the left and the right channels
Dim NewVolumeAllChannels As UInteger = ((CUInt(NewVolume) And &HFFFF) Or (CUInt(NewVolume) << 16))
' Set the volume
waveOutSetVolume(IntPtr.Zero, NewVolumeAllChannels)
End Sub
kaymaf
If that what you want, take it. If not, ignored it and no complain