Llenar ComboBox para Pocket PC (.NET 2003)

[Stream]

Código:

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ComboBox1.Items.Add(New ListItem("Zaza", 99))


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = CType(Me.ComboBox1.SelectedItem, ListItem).SelectedValue
    End Sub
End Class

Public Class ListItem
    Private _selectedValue As Integer
    Private _Text As String

    Public Sub New(ByVal Text As String, ByVal Value As Integer)
        Me._Text = Text
        Me._selectedValue = Value
    End Sub

    Public Property SelectedValue() As Integer
        Get
            Return _selectedValue
        End Get
        Set(ByVal value As Integer)
            _selectedValue = value
        End Set
    End Property

    Public Property Text() As String
        Get
            Return _Text
        End Get
        Set(ByVal value As String)
            _Text = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return _Text
    End Function

End Class

espero te sirva, saludos