Attributes Bylevel in VBA

Hi everybody again ,

Please , one question that may be anybody can helps me :

If I wan't to read the attributes ( Color , type , style , weight) of a element in VBA for Microstation V8i , I have seen that if you know the level , by this way , I can know the value of attributes of the element , with the code attached.

But , there is any way to find the attributes of a element ( that are defined Bylevel , value -1) without know the level_name or level_code ???

If I access to the attributes directly , element.color or element.style it returns me a value -1 ...

Any idea ????.

Thanks in advanced for your help !!!

The code attached :

    For Each oLv In ActiveDesignFile.Levels
        If oLv.Name = Main.txtNivell.Text Then
            Main.txtColor.Text = oLv.ElementColor
            If oElement.IsCellElement Then
                Main.txtNivell.Text = oElement.AsCellElement.Name
                Main.txtCella.Text = oElement.AsCellElement.Name
            Else
                Main.txtCella.Text = ""
            End If
            Main.txtGruix.Text = oLv.ElementLineWeight
            Main.txtEstil.Text = oLv.ElementLineStyle.Name
            Main.txtClasse.Text = oElement.Class
            Main.txtTipus.Text = oElement.Type
        End If