SoloCodigo

Hola amigos, estoy con un juego de cartas, concretamente el mus,(Ya se que está hecho, pero a mi me entretiene), las cartas las tengo en un array de controles image. De momento cuando se reparten las cartas utilizo las propiedades top y left del control, con lo que las cartas me aparecen en las posiciones prefijadas de cada jugador. Pero esta forma de resolverlo hace que el control vaya primero al punto top indicado y luego al left. es decir primero se mueve en vertical y luego en horizontal. A mi me gustaria conseguir el efecto similar al de las cartas en el juego Spider, que de una posición determinada(del mazo de cartas), el control vaya a la posición del jugador en diagonal, dando esa sensacion de desplazamiento.
Gracias de entemano por vuestra ayuda.
Como anecdota deciros que no he encontrado a ningun jugador de mus que gane al programa.

Hola amigos, estoy atascado con un problema que seguramente sea de lo mas chorra, pero llevo un par de dias jodido, el codigo es el siguiente:
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
            '--segun el color elige el icono del arrastre
            lblCartas(i).Drag 1
            If i <= 5 Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "color(0).ico")
            End If
            If i > 5 And i <= 11 Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "color(6).ico")
            End If
            If i > 11 And i <= 17 Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "color(12).ico")
            End If
            If i > 17 And i <= 23 Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "color(18).ico")
            End If
            If i > 23 And i <= 29 Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "color(24).ico")
            End If
            If i > 29 And i <= 35 Then
                lblCartas(i).DragIcon = LoadPicture(App.Path & "color(30).ico")
            End If
        End If
    Next i
   
End Sub

se trata de un juego de 36 cartas de seis colores diferentes; En un movimiento de arrastrar cartas,  permitido al poner la propiedad drag =1, se sellecciona un icono diseñado previamente, cuyo nombre coincide exactamente con la variable color(i), pero evidentemente no carga un icono que se llame color(i), necesito algo que me devuelkva el valor de esa variable y lo ponga en la ruta para poderlo cargar.
Gracias:losiento:

Bueno, mi problema es que utilizo el anigif.ocx para visualizar unos gif animados en mi aplicación, genero el ejecutable, y lo comprimo en un zip,para poderlo enviar a los amiguetes sin que lo filtren los antivirus.
Me dicen los amiguetes que no lo pueden descomprimir, porque el control citado no esta correctamente registrado.
¿Que puedo hacer?

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:

Antes tenia el problema de como ejecutar las secuencias de un command con codigo. Con las funcion call no me iba bien porque los cmd eran una matriz de controles. Arreglado esto me encuentro evidentemente que al llamar al cmd realiza todo elcódigo incluso "end sub".
¿Sabria alguien obviar esto y que la rutina que llama vuelva a recuperar el control?