不知道错哪了

Private Sub Form_Resize()
On Error Resume Next
Form1.Width = 11220
Form1.Height = 9045
End Sub

Private Sub Timer1_Timer()
If xx = 0 Then
xx = 1
End If
If xx >= 18 Then
xx = 1
End If
Image1.Picture = Image2(xx).Picture
End Sub

一个动画的代码，可运行就是没那效果，错哪了呢？