Active X Slider control

[Wak]

I'm not to sure what this message should classify uder, but I think here is the right place.

I am making an Active X slider control, Bul I can't seem the get the slider to position properly on the background, for the slider. I am using two picture controls name picBack and picSlide. Below is my current code. Does anyone have a solution, or can find a problem which I can't see? I have used a timer, so find when the slider is off the edges of the bar. If anyone has either a whole new answer from another example of can find a bug. Mainly in Property Let Value(i as Integer) then it would be really great. Thanx

Option Explicit
Dim xFind As Integer
Private iMax As Integer
Dim blnCheck As Integer
Private iValue As Integer

Private Sub imgSlide_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then xFind = X
End Sub

Private Sub imgSlide_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If blnCheck = True Then Exit Sub
If Button = 1 Then imgSlide.Move imgSlide.Left + (X - xFind)
End Sub

Private Sub tmrSlider_Timer()
If imgSlide.Left < 0 Then
imgSlide.Left = 0
blnCheck = True
Else
blnCheck = False
End If

If (imgSlide.Left + imgSlide.Width) > imgBack.Width Then
imgSlide.Left = (imgBack.Width - imgSlide.Width)
blnCheck = True
Else
blnCheck = False
End If
End Sub

Property Get Value() As Integer
If iMax < iValue Then iMax = iValue
Value = iValue
End Property

Property Let Value(i As Integer)
If iMax < i Then iMax = i
Dim iPosition As Integer
Dim iAnswer As Integer

iPosition = ((imgSlide.Left + (imgSlide.Width / 2)) / (imgBack.Width)) * 100
iAnswer = (i / iMax) * 100

Do Until (iPosition = iAnswer - 0.1) Or (iPosition = iAnswer + 0.1)
imgSlide.Left = imgSlide.Left + 0.1
iPosition = ((imgSlide.Left + (imgSlide.Width / 2)) / (imgBack.Width)) * 100
iAnswer = (i / iMax) * 100
Loop

iValue = i
End Property

Property Get Max() As Integer
Max = iMax
End Property

Property Let Max(i As Integer)
iMax = i
End Property

Private Sub UserControl_Initialize()
imgBack.Width = UserControl.Width
UserControl.Height = imgBack.Width
lblTitle.ForeColor = RGB(91, 91, 255)
lblTitle.Left = imgBack.Width / 2 - lblTitle.Width / 2
End Sub

Private Sub UserControl_Resize()
imgBack.Width = UserControl.Width
UserControl.Height = imgBack.Height + 20
lblTitle.Left = imgBack.Width / 2 - lblTitle.Width / 2
End Sub