如何在界面中放动画

[renjunjuna]

我想在界面里加个动画怎么做?

[renjunjun]

Private Sub Timer1_Timer()
Dim j As Integer
If i >= 0 Then
Picture1.Cls
j = i Mod 4 + 1
FileName = "f:\新建文件夹\as" & j & ".jpg"
Picture1.Picture = LoadPicture(FileName)
i = i + 1
End If
End Sub
我也是抄来的