Ho creato una piccolo programma, per prova, che ha 2 "interfacce". Per avere una transizione un po piu gradevole (ma di poco) da un'interfacca all'altra, ho scritto questo pezzetto di codice:
Private Sub HeightChange(ByRef Scopo As Integer)
NAgg = (Scopo - Me.Height) / 2
If NAgg > 0 Then
Oper = 2
Else
Oper = -2
End If
For K = 1 To NAgg
H = Me.Height
Me.Height = H + Oper
Next
End Sub
E poi ho creato un menu che mi permetta di scegliere l'interfaccia (MDRD o CGF), in modo da vedere se il codice funzionasse (all'avvio del programa la larghezza è 300 e l'altezza è 100)
All'inizio, quando apro il brogramma e scelgo qualsiasi delle 2 intefacce va bene, e va bene anche quando l'alteza della finestra deve aumentare, ma quando deve diminuire non mi funziona e non riesco a capire perchè!
Quindi vi chiedo umilmente AIUTO!
Grazie a tutti quelli che mi risponderanno.