Volum kontroller Vb.net

[Trixxter]

Prøver å få til en volum kontroller i vb.net som kan styre Master audio volume i windows.

 

det jeg har fått til hittil er en som styrer Wave på en litt merkelig måte; den kjører all lyd over på venstre høytaler, men jeg kan styre volumet opp og ned sånn som det passer meg

 

her er koden:

 

Declare Function waveOutSetVolume Lib "winmm.dll" _

(ByVal uDeviceID As Int32, ByVal dwVolume As Int32) As Int32

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.TrackBar1.SetRange(0, 65535)

End Sub

 

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

waveOutSetVolume(0, Me.TrackBar1.Value)

End Sub