Help in Trackbar

[tigger]

Hi there.. Regarding the button help i posted the last time, i already managed to do it.. Thanks.. But now, i'm having problems with trackbar.. I'm supposed to come up with a frequency trackbar that ranges from 250Hz-8kHz and display it on a label.. At 250Hz-1000Hz, it must increment by 250Hz. At 1000Hz-1500Hz, it must increment by 500Hz. And lastly, 2000Hz and above must increment by 1000Hz.. I can't get the tick frequency right.. This is the code i've come up so far..


Private Sub freqTrackBar_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles freqTrackBar.ValueChanged

Dim frequency As Integer = freqTrackBar.Value

If frequency >= 250 And frequency < 1000 Then
Me.freqTrackBar.Minimum = 250
Me.freqTrackBar.Maximum = 8000
Me.freqTrackBar.SmallChange = 250
Me.freqTrackBar.LargeChange = 250
Me.freqTrackBar.TickFrequency = 250
Me.freqLabel.Text = freqTrackBar.Value & "Hz"

ElseIf frequency >= 1000 And frequency <= 1500 Then
Me.freqTrackBar.Minimum = 250
Me.freqTrackBar.Maximum = 8000
Me.freqTrackBar.SmallChange = 500
Me.freqTrackBar.LargeChange = 500
Me.freqTrackBar.TickFrequency = 250
Me.freqLabel.Text = freqTrackBar.Value & "Hz"

Else
Me.freqTrackBar.Minimum = 250
Me.freqTrackBar.Maximum = 8000
Me.freqTrackBar.SmallChange = 1000
Me.freqTrackBar.LargeChange = 1000
Me.freqTrackBar.TickFrequency = 1000
Me.freqLabel.Text = freqTrackBar.Value & "Hz"
End If

End Sub

By the way, i've already allow personal emails.. Thanks Killer42.