volume einstellen is easy:

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

AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value


Label4.Text = TrackBar1.Value

End Sub