SendMessage Delete listview Item

Imports System.Runtime.InteropServices
Public Class Form1
    ' الاعلام عن الثوابت
    Public Const LVM_FIRST = &H1000
    Public Const LVM_FINDITEM = (LVM_FIRST + 13)
    Public Const LVM_DELETEITEM = (LVM_FIRST + 8)
    'الاعلان عن ستركشر LVFINDINFO
    Structure LVFINDINFO
        Public flags As UInteger
        Public psz As String
        Public lParam As IntPtr
        Public pt As Point
        Public vkDirection As UInteger
    End Structure
    ' تعريف دالة SendMessageA
    Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim ListInfo As New LVFINDINFO ' تعريف متغير جديد من نوع ستركشر LVFINDINFO
        ListInfo.flags = &H2 ' تعين القيمة الاولى للستركشر : 2 ، وهي تعني LVFI_STRING
        ListInfo.psz = "IVDZ" ' تعيين قيمة المتغير الثاني العنصر الذي سنبحث عنه
        'جلب عنوان الستركشر LVFINDINFO
        Dim address = Marshal.AllocHGlobal(Marshal.SizeOf(ListInfo)) '
        Marshal.StructureToPtr(ListInfo, address, True)
        ' ارسال امر الى الليست فيو خاصة ببرنامجنا وهذ الامر هو LVM_FINDITEM
        Dim index = SendMessage(ListView1.Handle, LVM_FINDITEM, -1, address)
        Threading.Thread.Sleep(500) ' تأخير البرنامج قليلا لكي لا يحدث مشاكل
        SendMessage(ListView1.Handle, LVM_DELETEITEM, index, Nothing) ' ارسال امر الحذف للليس فيو
    End Sub
End Class