https://foro.gambas-es.org/viewtopic.php?f=1&t=2775&p=15738#p15738
-----------------------------------
Shell
Lunes, 17 Diciembre 2012, 10:10

Re: Efecto Persiana
-----------------------------------
Hola guadafan.

Prueba esto:

[code linenumbers=false syntax=gambas]
Private alto As Integer
Private temporizador As New Timer As "tiempo"

Public Sub Form_Open()

Dim ancho As Integer
'temporizador = New Timer As "tiempo"

ancho = Screen.Width / 3
alto = Screen.Height / 3

With Me  
  .y = 100
  .x = 100
  .Height = 1
  .Width = ancho      
End With
temporizador.Delay = 50
temporizador.Start

End

Public Sub tiempo_Timer()
    If Me.Height < alto Then
      Inc Me.Height
    Else
      temporizador.Stop
    Endif 
End
[/code]

El objeto temporizador puedes hacerlo local.

Saludos.


