Yo dejo funciones para esconder los objetos, algunas necesitan como argumento sólo el objeto, otros debes pasarle el form también. Pueden modificarlas para agregarle la velocidad por ejemplo, o incluso hacerle aceleración. Es algo bien simple, pero que mejora mucho nuestras aplicaciones. Otras funciones que se podrían hacer sería para hacer animaciones en los botones al pasar el mouse por encima o cosas de ese estilo.
Saludos.
PUBLIC SUB HideRight(objeto AS Object, formulario AS Form)
WHILE formulario.width > objeto.X
objeto.x = objeto.x + 4
WAIT 0.01
WEND
objecto.Visible=0
END
PUBLIC SUB HideLeft(objeto AS Object)
DIM tope AS Short
tope = 0 - objeto.Width
WHILE tope < objeto.X
objeto.x = objeto.x - 4
WAIT 0.01
WEND
objecto.Visible=0
END
PUBLIC SUB HideButtom(objeto AS Object, formulario AS Form)
WHILE formulario.Height > objeto.y
objeto.y = objeto.y + 4
WAIT 0.01
WEND
objecto.Visible=0
END
PUBLIC SUB HideTop(objeto AS Object)
DIM tope AS Short
tope = 0 - objeto.Height
WHILE tope < objeto.y
objeto.y = objeto.y - 4
WAIT 0.01
WEND
objecto.Visible=0
END
PUBLIC SUB Hidecorner1(objeto AS Object)
DIM tope1 AS Short
DIM tope2 AS Short
tope1 = 0 - objeto.Height
tope2 = 0 - objeto.Width
WHILE tope1 < objeto.y AND tope2 < objeto.X
objeto.y = objeto.y - 4
objeto.x = objeto.x - 4
WAIT 0.01
WEND
objecto.Visible=0
END
WHILE formulario.width > objeto.X
objeto.x = objeto.x + 4
WAIT 0.01
WEND
objecto.Visible=0
END
PUBLIC SUB HideLeft(objeto AS Object)
DIM tope AS Short
tope = 0 - objeto.Width
WHILE tope < objeto.X
objeto.x = objeto.x - 4
WAIT 0.01
WEND
objecto.Visible=0
END
PUBLIC SUB HideButtom(objeto AS Object, formulario AS Form)
WHILE formulario.Height > objeto.y
objeto.y = objeto.y + 4
WAIT 0.01
WEND
objecto.Visible=0
END
PUBLIC SUB HideTop(objeto AS Object)
DIM tope AS Short
tope = 0 - objeto.Height
WHILE tope < objeto.y
objeto.y = objeto.y - 4
WAIT 0.01
WEND
objecto.Visible=0
END
PUBLIC SUB Hidecorner1(objeto AS Object)
DIM tope1 AS Short
DIM tope2 AS Short
tope1 = 0 - objeto.Height
tope2 = 0 - objeto.Width
WHILE tope1 < objeto.y AND tope2 < objeto.X
objeto.y = objeto.y - 4
objeto.x = objeto.x - 4
WAIT 0.01
WEND
objecto.Visible=0
END
Modifico las funciones para agregarles "objecto.Visible=0" lo que hará que si la ventana se redimensiona, el objeto no se vea, se me había escapado xD