Utilice temporizadores y objetos de etiqueta en vb; el objeto de etiqueta se puede mover automáticamente en cuatro direcciones; use las cuatro teclas de flecha para controlar la dirección del movimiento de la etiqueta.

Indicador atenuado (37 a 40) como booleano

Sub formulario privado_KeyDown(Código clave como entero, Mayús como entero)

Dim i

Para i = 37 a 40

flag(i) = IIf(KeyCode = i, True, False)

Siguiente

Fin Sub

Sub privado Form_Load()

Temporizador1.

Etiqueta1.AutoSize = True

Fin Sub

Subtemporizador privado1_Timer ()

Dim i, n

n = 200

Estático x como entero, y como entero

Para i = 37 A 40

Si flag(i) = True, entonces salga para

Siguiente

Seleccione el caso i

Caso 37

Si Label1.Left - n + Label1.Width <. = 0 Entonces Label1.Left = Me.ScaleWidth

Label1.Left = Label1.Left - n

Caso 38

Si Label1.Top - n + Label1.Height <= 0 Entonces Label1.Top = Me.ScaleHeight <.Top = Label1.Top + n

Finalizar selección

Fin del subtítulo