Private Sub ShowNewDB()
        Dim frmNew As New System.Windows.Forms.Form
        Dim lstView As New System.Windows.Forms.ListView
 
        AddHandler frmNew.Resize, AddressOf frm_Resize
 
        With frmNew
            .MdiParent = Me
            .Text = "Neue Datenbank"
 
            With lstView
                .Parent = frmNew
                .Dock = DockStyle.Fill
                .View = View.Details
                .GridLines = True
                .MultiSelect = False
 
                With .Columns
                    .Add("Nr.", 32, HorizontalAlignment.Right)
                    .Add("Name", 100, HorizontalAlignment.Left)
                    .Add("(m/w)", 42, HorizontalAlignment.Center)
                    .Add("Alter", 66, HorizontalAlignment.Left)
                    .Add("Telefon", 100, HorizontalAlignment.Left)
                    .Add("Kasse", 100, HorizontalAlignment.Left)
                End With
            End With
 
            .Size = New Size(500, 400)
            .Show()
        End With
    End Sub

    Private Sub frm_Resize(ByVal sender As Object, ByVal e As System.EventArgs)
        With lw
            Dim x As Integer = (.Width - 132) / 3 - 5
 
            .Columns(1).Width = x
            .Columns(4).Width = x
            .Columns(5).Width = x
        End With
    End Sub