hola, que tal,
try rather the WAIT-Function if the Timer makes problems
do while True
bicentenario.move(bicentenario.x + 10, bicentenario.y)
Wait 0.01 '(try out what you need here)
and not forgetting...
IF bicentenario.Left+bicentenario.Width > ME.Width then
'DO SOMETHING, if not your anniv
i have this rutine...
PUBLIC SUB pictures_init(formulario AS Form)
DIM bicentenario AS PictureBox
'Dibujamos el logo del Bicentenario
bicentenario = NEW PictureBox(formulario)
bicentenario.Picture = Picture["img/bicentenario.png"]
bicentenario.Width = 10
bicentenario.Height = 20
bice
