Private Sub Command1_Click()
  Form1.Width = Form1.Height * (4 / 3)
End Sub
 
Private Sub Command2_Click()
 Form1.Height = Form1.Width / (4 / 3)
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)