Hola! disculapame Tania, es que no soy de escribir en los foros, entonces no se bien el manejo de los mismos...gracias por tu ayuda! pero aun no puedo hacer que funcione, aca dejo el codigo de lo que hice, es un rompecabezas..gracias de todos modos por su colaboracion!
(es solo una parte)
Private Static Sub cmdboton_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i%, xvacio%, yvacio%, xClicked%, yClicked%
'Calcular coordinantes por botones
xvacio = (miIndexVacio) Mod miTamaño
yvacio = (miIndexVacio) \ miTamaño
xClicked = (Index) Mod miTamaño
yClicked = (Index) \ miTamaño
'Cambiar botones si vacio esta cerca
If (xClicked = xvacio + 1 And yClicked = yvacio) Or _
(xClicked = xvacio - 1 And yClicked = yvacio) Or _
(yClicked = yvacio + 1 And xClicked = xvacio) Or _
(yClicked = yvacio - 1 And xClicked = xvacio) Then
CambiarBotones (Index)
(aca debe ir un sonido)
End If
salu2 a todos!