Реализовать перемешивание костяшек в игре "15"

[BF_KARATEL]

Помогите пожалуйста реализовать перемещевание костяшек в игре
я можно сказать не знаю vba а надо сдать курсовой по нему игру выбрал пятнашки решил с помощью изображений
и не могу их сделать так что бы при нажатие на новую игру они менялись местами

PHP код:

Sub Helchok(Im As Image)
 Dim L As Integer, T As Integer
 L = Im.left
 T = Im.top
 
 ' Äâèãàåì âëåâî:
 If ImageX.left - 50 = L And ImageX.top = T Then
 k = Im.left
 Im.left = ImageX.left
 ImageX.left = k
 End If
 
 'Äâèãàåì âïðàâî
 
 If ImageX.left + 50 = L And ImageX.top = T Then
 k = Im.left
 Im.left = ImageX.left
 ImageX.left = k
 End If
  
 ' Äâèãàåì â ââåðõ:
 If ImageX.top - 50 = T And ImageX.left = L Then
 k = Im.top
 Im.top = ImageX.top
 ImageX.top = k
 End If
 
 ' Äâèãàåì âíèç
 If ImageX.top + 50 = T And ImageX.left = L Then
 k = Im.top
 Im.top = ImageX.top
 ImageX.top = k
 End If
End Sub

Private Sub CommandButton17_Click()
Dim top() As Variant
Dim left() As Variant
Dim d As Integer
Dim q As Integer
Dim w As Integer, j As Integer
Dim e As Integer, r As Integer
Dim rand As Boolean


top = Array(54, 104, 154, 204)
left = Array(24, 74, 124, 174)

End Function

Private Sub Image1_Click()
 Call Helchok(Image1)
End Sub

Private Sub Image10_Click()
 Call Helchok(Image10)
End Sub

Private Sub Image11_Click()
 Call Helchok(Image11)
End Sub

Private Sub Image12_Click()
 Call Helchok(Image12)
End Sub

Private Sub Image13_Click()
 Call Helchok(Image13)
End Sub

Private Sub Image14_Click()
 Call Helchok(Image14)
End Sub

Private Sub Image15_Click()
 Call Helchok(Image15)
End Sub

Private Sub Image2_Click()
 Call Helchok(Image2)
End Sub

Private Sub Image3_Click()
 Call Helchok(Image3)
End Sub

Private Sub Image4_Click()
 Call Helchok(Image4)
End Sub

Private Sub Image5_Click()
 Call Helchok(Image5)
End Sub

Private Sub Image6_Click()
 Call Helchok(Image6)
End Sub

Private Sub Image7_Click()
 Call Helchok(Image7)
End Sub

Private Sub Image8_Click()
 Call Helchok(Image8)
End Sub

Private Sub Image9_Click()
 Call Helchok(Image9)
End Sub 


Пытаюсь сделать что то с этого http://vbbook.ru//igru-visual-basic-pyatnashki/ но немого (Index) для Image же нет?

Хотя бы подскажите как эту часть

'Записываем в переменную координаты случайно выбранной кнопки
q = Command1(d).Left
w = Command1(d).Top

применить к Image т.е. как заменить Command1(Index)

[kuklp]

Под Ворд. Переименуйте в .bas и импортируйте модуль.