Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
  ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) _
  As Long
 
Private Const LVM_FIRST = &H1000
Private Const LVM_SETITEM As Long = (LVM_FIRST + 6)
Private Const LVM_INSERTITEM = (LVM_FIRST + 7)
Private Const LVM_GETITEMCOUNT = (LVM_FIRST + 4)
Private Const LVM_SETITEMTEXT = (LVM_FIRST + 46)
Private Const LVM_DeleteAllItems = LVM_FIRST + 9
 
Private Type LVITEM
    mask As Long
    iItem As Long
    iSubItem As Long
    state As Long
    stateMask As Long
    pszText As String
    cchTextMax As Long
    iImage As Long
    lParam As Long
    iIndent As Long
End Type
 
Public Sub lvw_FastItemAdd(ByVal lvw As ListView, ByVal mItem As Long, ByVal _
  mSubItem As Long, _
    ByVal mText As String)
Dim lv As LVITEM
 
    On Error Resume Next
 
    With lv
        .cchTextMax = 256
        .iItem = mItem
        .iSubItem = mSubItem
        .pszText = mText
    End With
    If mSubItem = 0 Then
        Call SendMessage(lvw.hwnd, LVM_INSERTITEM, 0, lv)
    ElseIf mSubItem > 0 Then
        Call SendMessage(lvw.hwnd, LVM_SETITEM, 0, lv)
    End If
End Sub
 
Call lvw_FastItemAdd(mListView, mListView.ListItems.Count, 0, "NeuesItem")