Facendolo senza ciclo funziona:

Command1.Width = Command1.Width * (currW / W)
Command1.Height = Command1.Height * (currH / H)
ma non ho voglia di farlo x ogni singolo controllo come posso fare?