Imports System
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim clsfrm1load As New clsfrm1
 
        'neue werte setzen für ersten start form1
        clsfrm1load.meform1size = New Size(600, 300)    'testgroesse
        clsfrm1load.meform1caption = "Hallo " & Date.Now
 
        'neue einstellungen von klasse clsfrm1 holen
        clsfrm1load.form1_parameter(Me)
 
    End Sub
 
    Private Sub Form1_ResizeEnd(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.ResizeEnd
 
        Dim _clsfrm1resize As New clsfrm1
 
        'neue werte setzen für groessenänderung form1
        _clsfrm1resize.meform1size = New Size(Me.Width, Me.Height)
        _clsfrm1resize.meform1caption = "Neue Größe :" & _
          _clsfrm1resize._meform1size.ToString
 
        'neue einstellungen nach resize von klasse clsfrm1 holen
        _clsfrm1resize.form1_parameter(Me)
 
    End Sub
End Class

Imports System
 
Public Class clsfrm1
    Inherits Form1
 
    Public monitrect As Rectangle = Screen.PrimaryScreen.WorkingArea
 
#Region "Eigenschaften"
    Public _meform1size As Size
    Public Property meform1size As Size
        Get
            Return _meform1size
        End Get
        Set(ByVal value As Size)
            _meform1size = value
        End Set
    End Property
 
    Private ReadOnly Property _meform1location As Point
        Get
            Return New Point(monitrect.Width / 2 - (_meform1size.Width / 2), _
                             monitrect.Height / 2 - (_meform1size.Height / 2))
        End Get
    End Property
 
    Public _meform1caption As String
    Public Property meform1caption As String
        Get
            Return _meform1caption
        End Get
        Set(ByVal value As String)
            _meform1caption = value
        End Set
    End Property
#End Region
 
    '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
#Region "Suppen"
    Public Sub form1_parameter(ByVal frm1 As Form)
        With frm1
            .Size = New Size(_meform1size)
            .Location = New Point(_meform1location)
            .Text = _meform1caption
        End With
    End Sub
#End Region
 
End Class