Option Explicit
Public Command1X, Command1Y
 
Private Sub Form_Load()
Command1X = Command1.Width / Form1.Width
Command1Y = Command1.Height / Form1.Height
End Sub
 
Private Sub Form_Resize()
Command1.Width = Command1X * Form1.Width
Command1.Height = Command1Y * Form1.Height
End Sub
 

- Command1 es un Boton
- Command1X y Command1Y son la proporcion q hay q mantener en la anchura y altura respectivamente, si queres mantener una de las dos constantes, entonces no cambies alguna de las dos.

Un abrazo
APOKLIPTICO