Timers "jumping"...

"Hello world!":D

-Most of you guys probably remember that program, eh?! ;) But anyway, I am working on my MP3-player, and have come up with a small problem...

-I am using a timer to make a bar in the program move from the start to the end of the songs playing. The problem is to make the bar jump to the position I am clicking on - and of course, I want the songs to "jump" too!

-I hope you know what I mean, and that someone out there are able to help me!?

-This is the code I use to move the bar:
____________________________________________

Private Sub Timer1_Timer()
On Error GoTo Wrong
pimp = am1.CurrentPosition
Dim ex
Picture1.ScaleWidth = 100
ex = Percent(pimp, am1.Duration, Picture1.Width / 100 * 5.3)
Picture1.Line (0, 0)-(Picture1.Width, Picture1.Height), vbBlack, BF
BitBlt Picture1.hdc, ex, 0, Picture11.Width, Form1.Picture11.Height - 1, Picture11.hdc, 0, 0, SRCCOPY
Wrong:
Exit Sub
End Sub
____________________________________________

-Thanks for your attention!;)