Private Sub imgBig_MouseUp _
(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
 If (Button And vbLeftButton) <> 0 Then
  Call MoveBig(imgBig(Index), 0, 28)
 Else
  Call MoveBig(imgBig(Index), 1, 28)
 End If
 nTimes = nTimes + 1
End Sub