Как можно добавлять новый пункт в List View, имея только Handle.

 WW = SendMessage(hvnd_ListView, LVM_DELETEITEM, ByVal 0, ByVal 0 )

Private Type LV_ITEM
  mask      As Long   ' маска использования полей структуры LV_ITEM
    iItem              As Long      '   номер элемента
  iSubItem   As Long  'номер дополнительного элемента
    State             As Long      '   текущее состояние элемента
    stateMask     As Long      'маска состояния элемента
    pszText         As String     ' адрес текстового буфера
    cchTextMax  As Long     ' размер текстового буфера
    iImage          As Long      'номер пиктограммы элемента
    lParam          As Long      ' 32-битовое значение, связанное с элементом
    iIndent         As Long       
End Type
   Dim WW
  Dim TEXT As String
   Dim LISTV As LV_ITEM   'Structura LV_ITEM
   TEXT = String$(256, " ")
   TEXT = "C:\1.wav"
   LISTV.iItem = 1
   LISTV.iSubItem =0
   LISTV.pszText = TEXT
   LISTV.cchTextMax = 8
   WW = SendMessage(hvnd_ListView, LVM_INSERTITEM, ByVal 0, LISTV)

Option Explicit
 
Private Sub Form_Load()
Dim LVI As LV_ITEM
Dim lResalt As Long
    LVI.mask = LVIF_TEXT
    LVI.pszText = "Новый элемент"
    lResalt = SendMessage(ByVal Me.lvwTest.hWnd, ByVal LVM_INSERTITEM&, ByVal 0&, LVI)
End Sub

Option Explicit
 
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
' структура LV_ITEM
Public Type LV_ITEM
    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
 
' константы для LV_ITEM.Mask
Public Const LVIF_TEXT        As Long = &H1
Public Const LVIF_IMAGE       As Long = &H2
Public Const LVIF_PARAM       As Long = &H4
Public Const LVIF_STATE       As Long = &H8
Public Const LVIF_INDENT      As Long = &H10
Public Const LVIF_NORECOMPUTE As Long = &H800
 
' сообщения для ListView
Public Const LVM_FIRST      As Long = &H1000              '// ListView messages
Public Const LVM_INSERTITEM As Long = (LVM_FIRST + 7)