Public Class Form1
    Enum Hora As Short
        Cero = 0
        Uno = 1
        Dos = 2
        Tres = 3
        Cuatro = 4
        Cinco = 5
    End Enum
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MessageBox.Show("El primer valor del Enumerador Hora es: " & Hora.Cero)
        Dim Tecnologia As New Collection
        Tecnologia.Add("Smartphone", "SP")
        Tecnologia.Add("iPad", "iP")
        Tecnologia.Add("Netbook", "NT")
        Tecnologia.Add("Notebook", "NB")
        Tecnologia.Add("All-In-One", "AO")
        Tecnologia.Add("Nettop", "NP")
        ListBox1.Items.Clear()
        For Each item In Tecnologia
            Me.ListBox1.Items.Add(Tecnologia(item).ToString)
        Next
    End Sub
End Class