' in einem Modul
Public nFormWidth As Single
Public nFormHeight As Single
Public nFormState As Long

' In Form1
Private Sub Form_Resize()
  If Me.WindowState <> vbMinimized Then
    nFormState = Me.WindowState
    nFormHeight = Me.Height
    nFormWidth = Me.Width
  End If
End Sub

' In den anderen Formen, z.B. Form2:
Private Sub Form_Load()
  Me.Width = nFormWidth
  Me.Height = nFormHeight
  Me.WindowState = nFormState
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de