Simpelt billede skift

Hej,

Jeg skal bruge et slide show mellem 5 billeder som er konstante.
Jeg har en timer. Når jeg klikkel på imgBold, vil jeg have slideshowet til at køre mellem de 5 billeder, men det virker ikke. Hvad gør jeg galt? (jeg bruger vb 6.0 pro)

Private Sub imgBold_Click()
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
ImageNum = ImageNum + 1
If ImageNum > 5 Then ImageNum = ImageNum = 1

    Select Case ImageNum
            Case Is = 1:
        imgBold = img1
            Case Is = 2
        imgBold = img2
            Case Is = 3
        imgBold = img3
            Case Is = 4
        imgBold = img4
            Case Is = 5
        imgBold = img5
End Select

End Sub