Listview Remove Itm With API

[aria1o]

با سلام خدمت عزیزان

دوستان چجوری میتونم آیتم های listview رو با API پاک کنم،البته شنیدم که با تابع "sendmessagestring" میشه ،ولی هرچی جستجو کردم به در بسته خوردم.:اشتباه:

[setroyd]

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

Const LVM_FIRST = &H1000
Const LVM_DELETEITEM = (LVM_FIRST + 8)




Private Sub Command1_Click()
SendMessage ListView1.hwnd, LVM_DELETEITEM, ByVal InputBox("lotfan index ra vared konid", "send message"), 0

End Sub

Private Sub Form_Load()
For a = 1 To 100
ListView1.ListItems.Add , , a
Next
End Sub