不知道错哪了
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
一个动画的代码,可运行就是没那效果,错哪了呢?