scrolling images on a command button

[lrfcbabe]

Yeah right, so I thought it was that simple, well this does not work. Has anybody any suggestions?
Private Sub Timer6_Timer()
If cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll.bmp" Then
cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll1.bmp"
End If
If cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll1.bmp" Then
cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll2.bmp"
End If
If cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll2.bmp" Then
cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll3.bmp"
End If
If cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll3.bmp" Then
cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll4.bmp"
End If
If cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll4.bmp" Then
cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll5.bmp"
End If
If cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll5.bmp" Then
cmdScrollBackward.Picture = "c:\program files\dswr\backwardscroll.bmp"
End If
End Sub