1.
Private
Sub
listStock_DoubleClick(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
listStock.DoubleClick
2.
Dim
myListView
As
ListView =
DirectCast
(sender, ListView)
3.
4.
proID.Text = myListView.FocusedItem.SubItems(0).Text
5.
proName.Text = myListView.FocusedItem.SubItems(1).Text
6.
Stock.Text = myListView.FocusedItem.SubItems(2).Text
7.
End
Sub