‘Moving the EQSlider
Private Sub EQSlider_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
WhichIndex = index
GetEQValues ‘See code lower down
End If
End Sub