Option Explicit

Private Sub Form_Load()
Dim i As Integer
Dim lv As ListItem

With Me.ListView1
    
    .Appearance = cc3D
    .BorderStyle = ccFixedSingle
    .Checkboxes = False
    .ColumnHeaders.Add , "k1", "name"
    .FlatScrollBar = False
    .FullRowSelect = True
    .GridLines = True
    .HideSelection = True
    .HotTracking = False
    .HoverSelection = False
    .LabelEdit = lvwManual
    .LabelWrap = False
    .MultiSelect = False
    .View = lvwReport
    
    
    
    i =  1 
    Do While i <  15 
        Set lv = .ListItems.Add(i, "k_" & i)
        lv.Text = "item " & i
        lv.Selected = False
        lv.Ghosted = False
        i = i +  1 
    Loop
    
    Set .DropHighlight = Nothing
    Set .SelectedItem = Nothing
    
End With

End Sub

Private Sub Form_Resize()
On Error Resume Next

Me.ListView1.Move  0 ,  0 , Me.ScaleWidth, Me.ScaleHeight

End Sub

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Me.ListView1.HitTest(x, y) Is Nothing Then
    Set ListView1.DropHighlight = Nothing
    Set ListView1.SelectedItem = Nothing
End If
End Sub