Private Sub ()
Dim i As Integer
If Command1.Caption = "开始展示" Then
Command1.Caption = "停止展示"
Timer1.Enabled = Ture
Else
Command1.Caption = "开始展示"
End If
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i > 5 Then i = 1
Image1.Picture = LoadPicture(i & “.jpg”)
End Sub