Dim ARRIBA_ABAJO As Integer, IZQUIERDA_DERECHA As Integer, AVANCE As Integer
Private Sub Form_Load()
ARRIBA_ABAJO = 1
IZQUIERDA_DERECHA = 1
AVANCE = 100
End Sub
Private Sub Timer1_Timer()
If (lbletiqueta.Top) <= 0 Then ARRIBA_ABAJO = 1: Beep
If (lbletiqueta.Left) <= 0 Then IZQUIERDA_DERECHA = 1: Beep
If (lbletiqueta.Top + lbletiqueta.Height) + (AVANCE + 150) >= Me.Height Then ARRIBA_ABAJO = -1
If (lbletiqueta.Left + lbletiqueta.Width) >= Me.Width Then IZQUIERDA_DERECHA = -1
lbletiqueta.Left = lbletiqueta.Left + (AVANCE * (IZQUIERDA_DERECHA))
lbletiqueta.Top = lbletiqueta.Top + (AVANCE * (ARRIBA_ABAJO))
DoEvents
End Sub