Private Sub frmNewsletter_Load(sender As System.Object, e As System.EventArgs) _
  Handles MyBase.Load
 
        Dim Products As New ucProductChoose
        Products.Size = New Size(1900, 1700)
        Me.Controls.Add(Products)
    End Sub

 Public Function createForm(ByVal frm As Form, ByVal ucControls As List(Of _
   UserControl), ByVal name As String, ByVal text As String) As Form
        frm.TopLevel = False
        frm.Visible = True
        frm.Location = New Point(5, 25)
        frm.Name = name
        frm.Text = text
        frm.BackColor = Color.FromArgb(160, 160, 160)
 
        If Not ucControls Is Nothing AndAlso ucControls.Count > 0 Then
            For Each ucControl In ucControls
                With ucControl
                    If .Name = "ucStatus" Then
                        .Location = New Point(5, 250)
                    Else
                        .Location = New Point(_ucStatus.Width + 5, 5)
                    End If
                End With
                frm.Controls.Add(ucControl)
            Next
            frm.Size = New Size(909, 535)
        Else
            frm.Size = New Size(800, 360)
        End If
 
        If frm.Name = "frmHtmlPreview" Then
            frm.Size = New Size(1100, 535)
        End If
 
        frm.Show()
        Me.Controls.Add(frm)
 
       Return frm
    End Function

 
 Private Sub VersandEMailToolStripMenuItem_Click(sender As System.Object, e As _
   System.EventArgs) Handles VersandEMailToolStripMenuItem.Click
        _UcList = New List(Of UserControl)
        _UcList.Add(New ucStatus)
        _UcList.Add(New ucUsertoMail)
 
        If Not _Form.Name = "frmVersandMail" Then
            _Form = New Form
            createForm(_Form, _UcList, "frmVersandMail", "Versand-E-Mail")
            _Form.Name = "frmVersandMail"
        Else
            _Form = New Form
            createForm(_Form, _UcList, "frmVersandMail", "Versand-E-Mail")
        End If
 
    End Sub