_A ListViewItem for Windows app with Value Property similar to WebForms ListItem

				
//**************************************
// Name: _A ListViewItem for Windows app with Value Property similar to WebForms ListItem
// Description:This class code will simulate the valuable property the the Windows ListViewItem doesnt have that the Web forms ListView does include, the "Value" property. This is needed when you want to assign an integer ID with some text being displayed in a combo box. Code is included to demonstrate how to use the myListViewItem class.
// By: Duane Warsham
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=3326&lngWId=10//for details.//**************************************

Public Class Form1
 Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
#End Region
' 
 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim li As New myListViewItem
li.Text = "The Value Tester"
li.Value = 5
Me.Show()
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
ComboBox1.DisplayMember = "Text"
ComboBox1.ValueMember = "Value"
ComboBox1.Items.Add(li)
 End Sub
'
'
 Private Sub ComboBox1_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
If Not ComboBox1.SelectedItem Is Nothing Then Label1.Text = ComboBox1.SelectedItem.value
 End Sub
End Class
'
'
'
Public Class myListViewItem
 Inherits System.Windows.Forms.ListViewItem
 Private _Value As Int64
 Public Property Value()
Get
 Return _Value
End Get
Set(ByVal Value)
 _Value = Value
End Set
 End Property
End Class