ListView problemen

[phobia]

Na een hele dag zoeken pas en meten op een laptop uit het jaar nul

Is het mij eidelijk gelukt om een listview te vullen met mijn gegevens

Maar nu het probleem. Ik heb een form gemaakt waar ik een combobox op heb zitten,
om de listview mee aan te sturen, een een listview.

Maar als ik de form run. Dan gebruikt de de listview het hele formulier.

Hoe kan dan en wat kan ik er aan doen?

Dit is de door mij gebruikte code.

Private Sub Listview_load()
Dim column_header As ColumnHeader
Dim list_item As ListItem

    ' Create the column headers.
    Set column_header = ListView1. _
        ColumnHeaders.Add(, , "Ordernummer :", _
        TextWidth("**##**##**##**"))
    Set column_header = ListView1. _
        ColumnHeaders.Add(, , "Referentie :", _
        TextWidth("**##**##**##**##**##**##**"))
    Set column_header = ListView1. _
        ColumnHeaders.Add(, , "Datum In :", _
        TextWidth("**-**-****"))
    Set column_header = ListView1. _
        ColumnHeaders.Add(, , "Datum Uit :", _
        TextWidth("**-**-****"))
    ' Start with report view.
    mnuViewChoice_Click lvwReport

SQLcode = ("SELECT * FROM TblBrilAdmin")
openDB
Set RS = db.OpenRecordset(SQLcode)
RS.MoveFirst
Do While Not RS.EOF
    Set list_item = ListView1.ListItems.Add(, , RS![briladmin id])

    list_item.SubItems(1) = RS!RefKlant
    
    If IsNull(RS!datumIn) Then
        list_item.SubItems(2) = ""
    Else
        list_item.SubItems(2) = RS!datumIn
    End If
    
    If IsNull(RS!datumUit) Then
        list_item.SubItems(3) = ""
    Else
        list_item.SubItems(3) = RS!datumUit
    End If
    RS.MoveNext
Loop

End Sub

Private Sub Form_Resize()
    ListView1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub


Private Sub mnuViewChoice_Click(Index As Integer)
Dim i As Integer

    ' Display the selected view style.
    ListView1.View = Index
    

End Sub