formula per il rallentamento

[dops]

forse dal titolo nonn si capisce molto ma non me ne vengono di + intuitivi
Allora: ho una Form con un pulsante all'evento click di questo scrivo questo codice:

Private Sub Command1_Click()
altf = Form1.Height
For i = altf To 5000
Form1.Height = i
Next
End Sub

in pratica quando clicco sul pulsante la form si allunga gradualmente fino ad arrivare ad un valore di 5000. Io vorrei che avesse un rallentamento nella parte finale..un rallentamento di velocità intendo.. e per fare questo c'è bisogno di una formula dove scrivo:

Form1.height= i

il problema è che non riesco a farla.. qualcuno mi dà una mano?
Ciao

[xegallo]

aggiungi una sleep che gradualmente aumenta il num dei millisecondi

[dops]

hem.. puoi farmi un esempio sul codice sopra?

[xegallo]

private declare sub Sleep lib "kernel32.dll" (byval dwmillisecond as long)
Private Sub Command1_Click()
dim imsec as integer
altf = Form1.Height
For i = altf To 5000
Form1.Height = i
sleep imsec
imsec = imsec + 1
doevents
Next
End Sub

[dops]

no così non và bene.. nel senso che la form si allunga un pò alla volta.. io voglio che rallenti la sua corsa nel finire..

[xegallo]

Originariamente inviato da dops
no così non và bene.. nel senso che la form si allunga un pò alla volta.. io voglio che rallenti la sua corsa nel finire..

metti una if che lo rallenta a partire da un certo valore
un po' di inventiva ragazzo senno dicci che devi fare e in che cartella te lo dobbiamo salvare

[dops]

heheh.. vorrei farlo da solo.. mannaggia ci ho provato con una if ma non mi viene.. in pratica devo decelerare l'allungamento della form nella fase finale di questo allungamento.. il concetto è semplice ma in pratica (almeno per me) diventa difficile

[xegallo]

Originariamente inviato da dops
heheh.. vorrei farlo da solo.. mannaggia ci ho provato con una if ma non mi viene.. in pratica devo decelerare l'allungamento della form nella fase finale di questo allungamento.. il concetto è semplice ma in pratica (almeno per me) diventa difficile

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwmillisecond As Long)
Private Sub Command1_Click()
Dim imsec As Single
altf = Form1.Height
For i = altf To 5000
Form1.Height = i
If i >= 4500 Then
   Sleep imsec
   imsec = imsec + 0.01
End If
DoEvents
Next
End Sub

[dops]

esatto era proprio quello che volevo fare..
e seni.. per fare il contrario? cioè per far ritornare la form allo stato iniziale sempre con lo stesso pulsante ?