Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.ValueChanged, AxWindowsMediaPlayer1.Enter
If TrackBar1.Value = 0 Then
AxWindowsMediaPlayer1.settings.rate = 1
End If
If TrackBar1.Value = 1 Then
AxWindowsMediaPlayer1.settings.rate = 0.5
End If
End Sub