Uso del tipo de dato Enum vb.net

#Region "Declaraciones"

    Public Enum Tipo
        Perfil
        Usuario
    End Enum

    Public TipoIngreso As Tipo
    Private mDt As New DataTable
    Private IdAplicacionSeleccionada As Integer
    Private IdAplicacionSel As Integer
    Private IdPerfilSel As Integer
    Private IdUsuarioSel As Integer
    Private IdControlSel As Integer
    Private VisibleSel As Boolean
    Private ActivoSel As Boolean


#End Region
decisiones donde se asigna

Private Sub IniciarAplicacion()
        ListarControles() 'carga listado de aplicaciones
        If TipoIngreso = Tipo.Perfil Then
            PanelUsuario.Enabled = False
            PanelUsuario.Visible = False
            ListarPerfiles()
        ElseIf TipoIngreso = Tipo.Usuario Then
            PanelPerfil.Enabled = False
            PanelPerfil.Visible = False           
            ListarUsuarios()
        End If
    End Sub
funciones donde se asigna

Private Sub BBI_PermisosPorPefil_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BBI_PermisosPorPefil.ItemClick
        Try
            'If ValidarCotraseña() Then

            FrmEditarPermisos = New EditarABMpermisos
            FrmEditarPermisos.TipoIngreso = EditarABMpermisos.Tipo.Perfil
            FrmEditarPermisos.ShowDialog()
            'End If
        Catch ex As Exception
            GestorMensajes.MensajeDelSistema(MensajeSistema.TipoDeMensaje.Errores, "#ERROR: al intentar abrir 'Editar Permisos por Perfil'." & vbCrLf & ex.Message.ToString).ShowDialog()
        End Try
    End Sub




  Private Sub BBI_PermisosPorUsuario_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BBI_PermisosPorUsuario.ItemClick
        Try
            'If ValidarCotraseña() Then
            FrmEditarPermisos = New EditarABMpermisos
            FrmEditarPermisos.TipoIngreso = EditarABMpermisos.Tipo.Usuario
            FrmEditarPermisos.ShowDialog()
            '  End If
        Catch ex As Exception
            GestorMensajes.MensajeDelSistema(MensajeSistema.TipoDeMensaje.Errores, "#ERROR: al intentar abrir 'Editar Permisos por Usuario'." & vbCrLf & ex.Message.ToString).ShowDialog()
        End Try
    End Sub