Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Dim oItem As ListViewItem
 
        With lviPF
            .Clear()
            .Columns.Add("Erste Spalte")
            .Columns.Add("Zweite Spalte")
            .Columns.Add("Dritte Spalte")
            .Columns.Add("Vierte Spalte")
            .Columns.Add("Fünfte Spalte")
            .Columns.Add("Sechste Spalte")
        End With
        For iIndex As Integer = 1 To 200
            oItem = lviPF.Items.Add("Erste Spalte Zeile " + iIndex.ToString)
            oItem.SubItems.Add("Zweite Spalte Zeile " + iIndex.ToString)
            oItem.SubItems.Add("Dritte Spalte Zeile " + iIndex.ToString)
            oItem.SubItems.Add("Vierte Spalte Zeile " + iIndex.ToString)
            oItem.SubItems.Add("Fünfte Spalte Zeile " + iIndex.ToString)
            oItem.SubItems.Add("Sechste Spalte Zeile " + iIndex.ToString)
        Next
        With lviPF
            For Each oCol As ColumnHeader In .Columns
                .AutoResizeColumn(oCol.Index, _
                  ColumnHeaderAutoResizeStyle.HeaderSize Or _
                  ColumnHeaderAutoResizeStyle.HeaderSize)
            Next
            .Scrollable = True
        End With
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Resize
        tbcPf.Height = Me.Height
        tbcPf.Width = Me.Width
        lviPF.Width = tbcPf.Width - Me.tviForen.Width - _
          Me.pnlEditorControl.Width - 20
    End Sub
End Class