Todas las dependenciasde ocx se puede dejar a un lado usando correctamente toda la variedad de API's que windows tra en si

eso solo esconde el programa de la lista de Aplicaciones

si es lo que me imagino, eso cambiaria la imagen rapidisimo, y no le daria efecto al gif ...
si estoy equivocado hacemelo saber Grin

para que sirve "Static" ^^

Además de un alcance, las variables tienen un tiempo de vida, el periodo de tiempo durante el cual mantienen su valor. Se preservan los valores de las variables a nivel de módulo y públicas durante el tiempo de duración de la aplicación. Sin embargo, las variables locales declaradas con Dim sólo existen mientras se ejecuta el procedimiento en el cual se han declarado. Normalmente, cuando termina la ejecución de un procedimiento, no se conservan los valores de sus variables locales y se reclama la memoria utilizada por las variables locales. La próxima vez que se ejecute el procedimiento se reinicializarán todas sus variables locales.

Sin embargo, puede preservar el valor de una variable local si hace que la variable sea estática. Utilice la palabra clave Static para declarar una o más variables dentro de un procedimiento, exactamente igual que si lo hiciera con la instrucción Dim:

Static Profundo

y no se puede hacer nada con la caja de texto? no sólo la uso para el modo automático del robot, sino también para el modo teledirigido

e interesa conservar el espacio

otra duda que tengo tambien es : ¿porque al mover una imagen en la pantalla con en teclado o como sea, se ven rallas blancas por encima de la imagen que se esta moviendo?. Son rallas que desaparecen rapido, pero son molestas y quedan mal.

Private Sub Form_Load()
    HScroll1.Min = 0: VScroll1.Min = 0
    HScroll1.Max = Width - Command1.Width
    VScroll1.Max = Height - 2 * Command1.Height
    HScroll1.Value = Command1.Left
    VScroll1.Value = Command1.Top
End Sub

Private Sub Form_Resize()
    Form_Load
End Sub

Private Sub HScroll1_Scroll()
    Motion Command1, HScroll1.Value, Command1.Top
End Sub

Private Sub VScroll1_Scroll()
    Motion Command1, Command1.Left, VScroll1.Value
End Sub

Private Sub Motion(Name As CommandButton, X as Long, Y as Long)
    Name.Left = X
    Name.Top = Y
End Sub