Combo box to Textbox Id number view

Public Class Form1
    Dim itemList As List(Of Item)


    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
        Dim i As Integer
        Dim n As Integer
        Dim s As String
        Dim obj As Item

        Me.itemList = New List(Of Item)
        Me.itemList = Item.ListAll()
        n = Me.itemList.Count

        For i = 0 To n - 1
            obj = Me.itemList.Item(i)
            s = obj.name
            Me.ComboBox1.Items.Add(s)
        Next
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim i As Integer
        Dim n As Integer
        Dim txt As String
        Dim obj As Item

        n = Me.itemList.Count
        i = Me.ComboBox1.SelectedIndex
        If i >= 0 & i < n Then
            obj = Me.itemList(i)
            txt = obj.name & obj.id.ToString() & "#"

            Me.TextBox1.Text = txt
        End If

    End Sub
End Class

Public Class Item
    Public name As String
    Public id As Integer

    Public Sub New(ByVal i As Integer, ByVal itemName As String)
        name = itemName
        id = i
    End Sub

    Public Shared Function ListAll() As List(Of Item)
        Dim newItem As Item

        Dim data(0 To 2) As String
        data(0) = "Metal"
        data(1) = "Furniture"
        Dim items As List(Of Item)
        items = New List(Of Item)

        For i As Integer = 0 To 1
            newItem = New Item(i, data(i))
            items.Add(newItem)

        Next

        Return items

    End Function

End Class