SoloCodigo

 ahora si funciono! muchas gracias Tania!!! sos una genia!

 

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!  

Hola! ya habia preguntado esto, en otro foro, pero la verdad no me sirvio mucho porque no me funciono, asi que voy a ser mas directa, hice un rompecabezas y kiero agregarle sonidos a este juego, por ej hacer que cada vez que muevo una pieza realice un sonido, me explico? bueno espero que alguien pueda ayudarme, desde ya muchas gracias!

saludos.