Private Sub NeuToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal _
    e As System.EventArgs) Handles NeuToolStripMenuItem1.Click
 
        With Neuedit
 
 
.......
 
            '1.Spalten
 
            .lblanz(0).Left = .lblpersdaten.Left
            .lblanz(0).Top = .lblpersdaten.Top + .lblpersdaten.Height
            .lblanz(0).Width = .lblpersdaten.Width / 8
            .cblanz.Left = .lblanz(0).Left + .lblanz(0).Width
            .cblanz.Top = .lblanz(0).Top
            .cblanz.Width = .lblanz(0).Width * 3
 
            .lblindex(0).Left = .lblanz(0).Left
            .lblindex(0).Top = .lblanz(0).Top + .lblanz(0).Height
            .lblindex(0).Width = .lblanz(0).Width
            .cblindex.Left = .cblanz.Left
            .cblindex.Top = .lblindex(0).Top
            .cblindex.Width = .cblanz.Width
            .cblindex.Height = .lblindex(0).Height
 
            .lblsehen(0).Left = .lblindex(0).Left
            .lblsehen(0).Top = .lblindex(0).Top + .lblindex(0).Height
            .lblsehen(0).Width = .lblindex(0).Width
            .cblsehen.Left = .cblanz.Left
            .cblsehen.Top = .lblsehen(0).Top
            .cblsehen.Width = .cblindex.Width
 
.....
            .ShowDialog()
 
        End With
 
 
    End Sub