Verified answer

Aquí tienes el código para los botones: "ArribaCmd", "AbajoCmd", "DerechaCmd" y "IzquierdaCmd" y la figura: "shape"

Solo tienes que utilizar la propiedades de objeto: Top, para la altura que esta "invertida" como puedes comprobar; y Left para mover hacia los lados; y decirle, en la derecha de la igualdad, cuanto quieres que se mueva. En el ejemplo he puesto 100, para que se percibiera claramente, porque con 1 apenas se percibe el cambio.

Private Sub ArribaCmd_Click()

shape.Top = shape.Top - 100

End Sub

Private Sub AbajoCmd_Click()

shape.Top = shape.Top + 100

End Sub

Private Sub DerechaCmd_Click()

shape.Left = shape.Left + 100

End Sub

Private Sub IzquierdaCmd_Click()

shape.Left = shape.Left - 100

End Sub

jugas con los botones y las propiedades del circulo.

supongamos q el circulo se llama "circulo"

arriba = "arriba"

y asi...

todo esto en el nombre de id dle objeto eh!

entonces en el evento onclick de cada boton

sub Arriba_Click()

circulo.top = circulo.top - 1

end sub

sub abajo_Click()

circulo.top = circulo.top + 1

end sub

sub izquierda_Click()

circulo.top = circulo.left - 1

end sub

sub derecha_Click()

circulo.top = circulo.left + 1

end sub

el +1 es l oq va moviendo el objeto.. si no queres cnasarte tanto le pones +10 o +100 para verificarlo

asi de simple

saludos!!

FONDO DE FORMULARIO COLOR NEGRO

X=a 'centro X de pantalla

Y=b ' centro Y de pantalla

dibujar circulo en la posicion (X,Y) de color VERDE

=========

APRETAR DERECHA

dibujar circulo en (X,Y) de color NEGRO 'borrar circulo

X=X+1

dibujar circulo en (X,Y) de color VERDE

=========

APRETAR IZQUIERDA

dibujar circulo en (X,Y) de color NEGRO 'borrar circulo

X=X-1

dibujar circulo en (X,Y) de color VERDE

===========

APRETAR ARRIBA

dibujar circulo en (X,Y) de color NEGRO 'borrar circulo

Y=Y-1

dibujar circulo en (X,Y) de color VERDE

===========

APRETAR ABAJO

dibujar circulo en (X,Y) de color NEGRO 'borrar circulo

Y=Y+1

dibujar circulo en (X,Y) de color VERDE