ho provato..l'ho messo sul form_load ma non fa niente....

Private Sub Form_Load()

aLarg = 11910 / 10
aAlt = 8640 / 10
For I = 1 To 10
'Se vuoi animare la larghezza
frmricerca.Width = aLarg * I
'oppure l'altezza o entrambi
frmricerca.Height = aAlt * I
Next I
end sub
dimensione finale della larghezza = 11910
dimensione finale dell'altezza = 8640

Se puoi aiutarmi