Private Sub Command6_Click()
Static a As Integer
If i = 1 Then
Image1.Picture = LoadPicture("D:\Bmp图片\2.bmp")
ElseIf i = 2 Then
Image1.Picture = LoadPicture("D:\Bmp图片\3.bmp")
ElseIf i = 3 Then
Image1.Picture = LoadPicture("D:\Bmp图片\4.bmp")
Else
i = 1
End If
i = i + 1
End Sub
不行啊 点了没反应 刚开始我也是这么写的...