¡Advertencia!
Este tema no ha tenido respuestas en más de un mes. Recuerda que si deseas añadir una nueva debes cumplir con las normas de la web.
Tecnología Ayuda con Visual Basic.
Bueno como varios saben estoy atareados con unas cuantas tareas y ya ando en lo de informática y el proyecto 1 es hacer como un space invaders, bueno logro que se mueva mi 'nave', pero hay como un botón que funciona de turbo que mueve varios espacios y necesito que al darle vaya y vuelva pero lo unico que hace es ir, y en el disparo necesito que el Shape1 vaya y pegue al blanco y automáticamente se devuelva pero no lo logro aqui les dejo el código como lo llevo.


If KeyAscii = 52 Then
Picture1.Left = Picture1.Left - 20
End If

If KeyAscii = 54 Then
Picture1.Left = Picture1.Left + 20
End If

If KeyAscii = 56 Then
Picture1.Top = Picture1.Top - 20
End If

If KeyAscii = 50 Then
Picture1.Top = Picture1.Top + 20
End If

If KeyAscii = 51 Then
Picture1.Left = Picture1.Left + 20
Picture1.Top = Picture1.Top + 20
End If

If KeyAscii = 55 Then
Picture1.Left = Picture1.Left - 20
Picture1.Top = Picture1.Top - 20
End If

If KeyAscii = 57 Then
Picture1.Left = Picture1.Left + 20
Picture1.Top = Picture1.Top - 20
End If

If KeyAscii = 49 Then
Picture1.Left = Picture1.Left - 20
Picture1.Top = Picture1.Top + 20
End If

If KeyAscii = 53 Then
For x = 1 To 20
Picture1.Left = Picture1.Left + 10
m = 0
Next x
End If
m = 1
If KeyAscii = 53 Then
For x = 1 To 20
Picture1.Left = Picture1.Left + 90
m = 0
Next x
End If

If KeyAscii = 52 Then
Shape1.Left = Shape1.Left - 20
End If

If KeyAscii = 54 Then
Shape1.Left = Shape1.Left + 20
End If

If KeyAscii = 56 Then
Shape1.Top = Shape1.Top - 20
End If

If KeyAscii = 50 Then
Shape1.Top = Shape1.Top + 20
End If

If KeyAscii = 51 Then
Shape1.Left = Shape1.Left + 20
Shape1.Top = Shape1.Top + 20
End If

If KeyAscii = 55 Then
Shape1.Left = Shape1.Left - 20
Shape1.Top = Shape1.Top - 20
End If

If KeyAscii = 57 Then
Shape1.Left = Shape1.Left + 20
Shape1.Top = Shape1.Top - 20
End If

If KeyAscii = 49 Then
Shape1.Left = Shape1.Left - 20
Shape1.Top = Shape1.Top + 20
End If

If KeyAscii = 53 Then
For x = 1 To 20
Shape1.Left = Shape1.Left + 10
m = 0
Next x
End If
m = 1
If KeyAscii = 53 Then
For x = 1 To 20
Shape1.Left = Shape1.Left + 90
m = 0
Next x
End If


Bueno esos son los problemas que tengo, las devoluciones de la bala y de la nave.
Tecnología Ayuda con Visual Basic.