Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Dim o_drawingpoint As Drawing.Point
Dim o_listviewitem As ListViewItem
o_drawingpoint = ListView1.PointToClient(Cursor.Position)
If IsNothing(o_drawingpoint) Then Exit Sub
o_listviewitem = ListView1.GetItemAt(o_drawingpoint.X, o_drawingpoint.Y)
If IsNothing(o_listviewitem) Then Exit Sub
MsgBox(o_listviewitem.Text)
End Sub