How get listview event

See more:

VB

ListView

Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim Msg As CWPSTRUCT
Select Case uMsg

Case WM_NOTIFY
Dim y As NMLVDISPINFO
Dim item As LVITEM
CopyMemory y, ByVal lParam, Len(y)
Form1.List1.AddItem y.hdr.code & " " & y.item.lParam, 0
If Msg.????? = LVN_INSERTITEM Then
Debug.Print "test"
End If
End Select
WindowProc = CallWindowProc(lpPrevWndFunc, hwnd, uMsg, wParam, lParam)

End Function

How to do get the listView Event

What I have tried:

Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim Msg As CWPSTRUCT
Select Case uMsg

Case WM_NOTIFY
Dim y As NMLVDISPINFO
Dim item As LVITEM
CopyMemory y, ByVal lParam, Len(y)
Form1.List1.AddItem y.hdr.code & " " & y.item.lParam, 0
If Msg.????? = LVN_INSERTITEM Then
Debug.Print "test"
End If
End Select
WindowProc = CallWindowProc(lpPrevWndFunc, hwnd, uMsg, wParam, lParam)

End Function

How to do get the listView Event