想完成一个功能，点一下按键换一张图片,该如何解决

想完成一个功能，点一下按键换一张图片
现在可以点一下换一次背景，然后在点按钮就没用了，如何让他每次点都能换背景呢
给代码最好了

[解决办法]
Private Sub Command1_Click()
Static i As Integer 'ImageList1控件中放10张照片
i = i + 1
If i > 10 Then i = 1
Me.Picture = ImageList1.ListImages(i).Picture
End Sub