用的是WindowsMediaPlayer控件，怎样用Timer 或slider控件实现音量调节，高手指教一下代码.谢谢

Private Sub Form_Load()
Slider1.Max = 100
Slider1.Min = 0
Slider1.SmallChange = 5
Slider1.LargeChange = 5
Slider1.TickFrequency = 5
End Sub

Private Sub Slider1_Change()
 WindowsMediaPlayer1.settings.volume = Slider1.Value
End Sub

学习了。

控件上面的音量调节不能用
？

学习了。