Dim Seitenverhaeltnis As Single
Dim Höhe As Single
Dim Breite As Single
 
Private Sub Form_Load()
Seitenverhaeltnis = Me.Width / Me.Height
Höhe = Me.Height
Breite = Me.Width
End Sub
 
Private Sub Form_Resize()
If Breite <> Me.Width Then
Me.Height = Me.Width / Seitenverhaeltnis
End If
If Höhe <> Me.Height Then
Me.Width = Me.Height * Seitenverhaeltnis
End If
Höhe = Me.Height
Breite = Me.Width
End Sub