[3booody]

تضيف مقبض الحدث بداخل زر البوتون

كود :

AddHandler NewListView.MouseClick, AddressOf ListView_MouseClick

وتتعامل مع الsender الي ياخذ قيمة الكائن الحقيقة

كود :

Private Sub ListView_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
       Dim firas As String = TryCast(sender, ListView).SelectedItems(0).SubItems(1).Text
       MsgBox(firas)
   End Sub