Enum no Vb.Net

vb.net aspx

'Declaração do enum
Private Enum Cargo
   Usuario = 1
   supervisor = 2
   Gerente = 3
   Diretor = 4
End Enum

'Popular um DropDowmList com os itens do enum
Dim Nomes As Array = System.Enum.GetNames(GetType(Cargo))
Dim iContador as integer

For iContador = 0 To Nomes.Length - 1
    ddlCargo.Items.Add(Nomes(iContador))

Next

'Ler o valor associado ao texto do combobox
 Dim i As Integer


i = CInt(System.Enum.Parse(GetType(Cargo), ddlCargo.Text))

'Colocaar texto do enum em textbox a aprtir do valor
txtcargo.Text = CType(CInt(numero item enum)), cargo).ToString
******************************************************************

Windows Application

'Declaração de enum
Private Enum Status
    Ativa = 1
    Cancelada = 2
    Definitiva = 3
End Enum

'Colocar os membros do Enum em um comboBox
cmbStatus.Items.AddRange(System.Enum.GetNames(GetType(Status)))


'Ler os valores dos membros do enum
Dim i as Integer

i = Cint(System.Enum.Parse(GetType(Status), cmbStatus.Text))