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