Private Sub Form_Load()
    Me.Label1.AutoSize = True
    Me.Label1.WordWrap = True
    Me.Label1.Left = 240
 
    Me.Text1.Text = "Hier steht was geschrieben"
    Me.Text1.Left = Me.Label1.Left
    Me.Command1.Left = Me.Label1.Left
 
End Sub
 
Private Sub Form_Resize()
     If Me.WindowState <> vbMinimized Then
        ' Bei minimiertem Fenster machen Groessenaenderungen keinen Sinn
 
        'Bildschirmauflösung ermitteln
        ' x und y Auflösung
        xRes = Screen.Width / Screen.TwipsPerPixelX
        yRes = Screen.Height / Screen.TwipsPerPixelY
 
        ' Rand ermitteln wegen verschiedener Windows Stile (Z.B. Aero)
        FensterrandRL = Me.Width - Me.ScaleWidth
 
        ' Mindestbreite
        If Me.Width < 8088 Then
            Me.Width = 8088
            Exit Sub
        End If
 
        ' Mindesthöhe
        If Me.Height < 5650 Then
            Me.Height = 5650
            Exit Sub
        End If
 
        Me.Label1.Caption = "Willkommen zur Demo, Ihre Bildschirmauflösung" & _
          "beträgt: " & "X:" & xRes & " Y:" & yRes & vbCrLf & vbCrLf & _
          "Fenstergroesse: " & "(" & Me.Width & " x " & Me.Height & " Twips)"
 
        FeldanpassungGroesse
 
     End If
End Sub
 
Private Sub Command1_Click()
    Me.Label1.FontSize = Me.Label1.FontSize + 3
    Me.Text1.FontSize = Me.Label1.FontSize
    FeldanpassungGroesse
End Sub
 
Private Sub Command2_Click()
 
    Me.Label1.FontSize = Me.Label1.FontSize - 3
    Me.Text1.FontSize = Me.Label1.FontSize
    FeldanpassungGroesse
End Sub
 
Private Sub FeldanpassungGroesse()
    rand = Me.Label1.Left
 
    ' von oben nach unten agieren
    Me.Label1.Width = Me.ScaleWidth - rand - rand
 
    Me.Text1.Height = 0
    Me.Text1.Top = Me.Label1.Top + Me.Label1.Height + rand
    Me.Text1.Width = Me.Label1.Width
 
    Me.Command1.Top = Me.Text1.Top + Me.Text1.Height + rand
    Me.Command2.Top = Me.Command1.Top
 
    Me.Command1.Height = Me.Text1.Height
    Me.Command2.Height = Me.Command1.Height
    Me.Command1.FontSize = Me.Label1.FontSize
    Me.Command2.FontSize = Me.Label1.FontSize
 
    Me.Command1.Width = Me.Text1.Width / 2 - rand
    Me.Command2.Width = Me.Command1.Width
 
    Me.Command2.Left = Me.Command1.Left + Me.Command1.Width + rand + rand
End Sub