vb一个image控件里面需要连贯出现10张图片感觉像动画效果

Dim PCindex%

Private Sub Timer1_Timer()

PCindex = PCindex + 1

If PCindex > 10 Then PCindex = 1

Image1.Picture = LoadPicture(App.Path & "/vb作业/images/pc(" & PCindex & ").jpg")

End Sub