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
codice:
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