Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim newf As New clsmdiform(500, 500, Color.Azure, "test", 5, 5000)
 
        Me.Width = newf.mdibreite ++hier sollte evtl newf.ladedas drin stehen++
 
    End Sub
 
End Class

Public Class clsmdiform
    Inherits Form1
 
    Public mdibreite As Double
    Public mdihoehe As Double
    Public mdibordercolor As Color
    Public mditext As String
    Public mdiposlinks As Double
    Public mdipostop As Double
 
    Public Sub New(ByVal breite As Double, ByVal hoehe As Double, ByVal hgfarbe _
      As Color, _
                   ByVal text As String, ByVal links As Double, ByVal top As _
                   Double)
        mdibreite = breite
        mdihoehe = hoehe
        mdibordercolor = hgfarbe
        mditext = text
        mdiposlinks = links
        mdipostop = top
    End Sub
 
End Class