26/09/2005, 08:35
|
 | | | Fecha de Ingreso: junio-2005 Ubicación: portuguesa (Venezuela)
Mensajes: 187
Antigüedad: 18 años, 11 meses Puntos: 1 | |
| aqui esta el procedimiento
Sub Deslizar(MOVER As Form, ESPACIO As Integer)
While MOVER.Left + MOVER.Width < Screen.Width
DoEvents
MOVER.Left = MOVER.Left + ESPACIO
Wend
While MOVER.Top - MOVER.Height < Screen.Height
DoEvents
MOVER.Top = MOVER.Top + ESPACIO
Wend
End Sub
cuando lo llames hazlo asi
Deslizar Me,50 'por ejemplo
le pasas el formulario de parametro y la cantidad de espacio q se movera
espero t sirva..
saludos
nos vemos...
__________________
A quien dices un secreto le entregas tu libertad :si: |