SoloCodigo

gracis por el enlace. He descargado el ejemplo que dices, pero no es eso lo que necesito. En ese ejemplo los controles los mueves con el ratón a tu voluntad.
Imaginad que en un punto del codigo aparece:
imgcarta(i).top=3000
imgcarta(i).left=3500
.
.
.
.
Y varias lineas más abajo vuelve a aparecer:
imgcarta(i).top=5000
imgcarta(i).left=300,,,, y que este cambio de posición lo haga en diagonal, y a ser posible despacio, como hace el solitario spider cuando reparte cartas.
Algo asi como                move imgcarta(i) (300,5000)
Espero heberme explicado mejor ahora.
Saludos y gracias

Por ejemplo los botones que tengo delante: "http://"  o "IMG" o "QUOTE" por ejemplo, tienen forma apaisada.
La barra del ascensor que tienes probablemente a la derecha de tu pantalla tiene forma vertical.
Gracias por el interés que os estáis tomando.
Quería simular la mesa redonda de un juego de naipes vista desde arriba, por eso me gustaría que los controles que albergan los naipes fueran rotando para imitar su posición real en la mesa de juego. Si no lo consigo los pondré todos orientados en la misma dirección.

Bueno perdonad si os he hecho perder el tiempo. Pero por fin lo he resuelto. He cambiado la forma de comparar y el resultado es el mismo. Os mando como ha quedado el código:

Private Sub lblCajonCartas_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
 'comprueba que haya carta
   
    posy = lblCajonCartas(Index).Top
    posx = lblCajonCartas(Index).Left
   
    For i = 0 To 35
        If lblCartas(i).Top = posy And lblCartas(i).Left = posx Then
           
            lblCartas(i).Drag 1
           
            '--segun el color elige el icono del arrastre
            If lblCartas(i).BackColor = QBColor(1) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "1.ico")
            End If
            If lblCartas(i).BackColor = QBColor(2) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "2.ico")
            End If
            If lblCartas(i).BackColor = QBColor(3) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "3.ico")
            End If
            If lblCartas(i).BackColor = QBColor(4) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "4.ico")
            End If
            If lblCartas(i).BackColor = QBColor(5) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "5.ico")
            End If
            If lblCartas(i).BackColor = QBColor(6) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "6.ico")
            End If
            If lblCartas(i).BackColor = QBColor(7) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "7.ico")
            End If
            If lblCartas(i).BackColor = QBColor(8) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "8.ico")
            End If
            If lblCartas(i).BackColor = QBColor(9) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "9.ico")
            End If
            If lblCartas(i).BackColor = QBColor(10) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "10.ico")
            End If
            If lblCartas(i).BackColor = QBColor(11) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "11.ico")
            End If
            If lblCartas(i).BackColor = QBColor(12) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "12.ico")
            End If
            If lblCartas(i).BackColor = QBColor(13) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "13.ico")
            End If
            If lblCartas(i).BackColor = QBColor(14) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "14.ico")
            End If
            If lblCartas(i).BackColor = QBColor(15) Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "15.ico")
            End If
        End If
    Next i
   
End Sub

Personalmente me gutaba más antes, pero los que estamos limitados, no podemos ser brillantes.
 Saludos, y tema zanjado.

Enhorabuena.
Que la sabiduria guie tus pasos.

Hola amigos, explico mi problema:
Tengo diversos juegos desarrollados en Visual Basic y uno en Flash. Mi intención es colgarlos en la Web y que la gente pueda jugar sin necesidad de descargarlos.
Para ello estoy diseñando mi "web" con unos botones, de tal manera que al pincharlos, se abra el juego correspondiente.
Para ello añado el siguiente codigo al boton:
on (release) {
    fscommand ("exec", "Simon.bat");
}
Por otro lado con el word pad he creado un fichero llamado Simon.bat con el siguiente código:
@start Simon.exe
Todo está en la misma carpeta puesto que utilizo Flash 5.
Si en el explodador de windows pincho el fichero Simon.bat, se abre el Simon.exe.
Tambien he probado con la acción Get URL, pero como sabeis sale el formulario de advertencia de peligro, y a los no acostumbrados les asustará.
¡¡Toy deseperado!!:hitcomp:
Gracias

Pero no parece muy apropiado que el usuario de un programa, aunque sea amiguete, tenga que registrar en su equipo el ocx.
Entiendo entonces que no se puede utilizar este control para las animaciones, si tienes interes en que tu programa circule.
La pregunta siguiente seria que hacer para alegrar un poquito las aplicaciones de vb.
De todos modos mucgas gracias por contestar.

Muchas gracias.
Lo he visto y puede ser interesante. Pero eso me obligaría a necesitar 27 ficheros adjuntos, uno por cada rombo. Bueno te explico necesito dar la apariencia de 3D a un cubo de Rubick, Lo suyo y no desisto es encontrar un control al que con código le cambie el color de su propiedad backcolor, con lo cual no necesitaré ningñun fichero adjunto.
De todas maneras si desisto usaré tu propuesta.
Saludos.

Hola amigis, necesito utilizar un control Shape pero en vez de utilizarlo con las formas preestablecidas, necesito que tenga forma de rombo. Es mas, preferiria saber si es posible modificar la forma de este control.
Gracias:comp:

Pero lo que realmente quiero hacer es:
Private Sub mnuTutoial_Click()
call comandbutton1_click
call commandbutton2_click
end sub
La funcion call no funciona para una matriz de controles command

Gracias por responder.
Ya lo he hecho, pero alguna propiedad del cmd debo tener mal porque no me funciona.