SoloCodigo

He creado la siguiente aplicacion donde se desplaza por un formulario un control etiqueta
Dim y As String
Dim x As Integer
Private Sub Timer1_Timer()
x = x + 1
y = x
Me.Caption = y
lbletiqueta.Left = lbletiqueta.Left + 100
If lbletiqueta.Left = 5000 Then lbletiqueta.Left = -500
End Sub

Si me funciona pero el control deja rastros en el formulario, ya le puese la propiedad transparente al formulario y nada, en que me estoy equivocando
Por se acaso adjunto el archivo
Ayudame tambien para poder mover la etiqueta por todo el formulario en forma aleatoria, osea que revote por todo el formulario tipo PROTECTOR de Pantalla de Windows.
De antemano gracias por el aporte
Abel

Pue si es algo curioso y es verdad no todas las letras dejan rastro de esa fuente

ami me funciono cambiando la propiedad ed la etiqueta AutoSize=False y funcion


Para hacerlo rebotar puedes guiarte con esto



Saludos mi estimado Abel espero te ayude