if form.height<3000 then form.height=3000

if form.width<4000 then form.width=4000

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!

Private Sub Form_Resize()
  Static bWorking As Boolean
 
  If bWorking Then Exit Sub
 
  If Me.WindowState <> vbMinimized Then
    bWorking = True
    If Me.Width < 3000 Then Me.Width = 3000
    If Me.Height < 4000 Then Me.Height = 4000
    bWorking = False
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de