Este es un programa simple en vb6.0. El requisito es: cuando se presionan las teclas A, S, D, W, las etiquetas en el formulario se moverán hacia la izquierda, abajo, derecha y arriba.
'Primero establezca la propiedad KeyPreview del formulario en True
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Seleccione Case KeyCode
Case vbKeyA
Si a - 200 gt; = 0 Entonces
Etiqueta1.Mover a - 200, b
a = a - 200
Fin If
Caso vbKeyD
Si a 200 lt; = Forma1.Mover a, b - 200
b = b - 200
Fin Si
Caso vbKeyS
Si b 200 lt; = Form1.ScaleHeight - Label1.Height Then
Label1.Move a, b 200
b = b 200
Finalizar si
Finalizar selección
Finalizar sub