Private Sub Form_Resize()
  If (Form1.Width / Form1.Height) >= (4 / 3) Then
    Form1.Width = Form1.Height * (4 / 3)
  Else
    Form1.Height = Form1.Width / (4 / 3)
  End If
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)