大神求助

我知道楼主的意思了，貌似是一个小游戏吧。首先你需要一个一个静态变量记录第一次单击的index，记作Preindex，然后第二次单击的时候就可以和picture1(Preindex)交换了。

其实就是一个拼图游戏。我想实现点击两张相邻的图片能够实现交换位置，交换函数写好了。

Sub JHWZ(Obj1 As Object, Obj2 As Object)
Dim Pic As StdPicture
Set Pic = Obj1.Picture
Obj1.Picture = Obj2.Picture
Obj2.Picture = Pic
End Sub
Function XiangLing(a As Integer, b As Integer) As Boolean
XiangLing = False
Select Case b
Case a + 3, a - 3
XiangLing = True
Case a - 1, a + 1
If a \ 3 = b \ 3 Then XiangLing = True *假如Image1数组下界是1，就换成(a-1) \ 3 = (b-1) \ 3
End Select
End Function
Private Sub Image1_Click(Index As Integer)
Static Preindex As Integer, XuanDing As Boolean
If XuanDing = False Then
Preindex = Index
XuanDing = True
Image1(Index).BorderStyle = 1
Else
If XiangLing(Index, Preindex) = True Then
JHWZ Image1(Index), Image1(Preindex)
XuanDing = False
Image1(Preindex).BorderStyle = 0
End If
End If
End Sub