Attributes of the activeSettings bylevel

Hi again to everybody ,

Anybody knows , how can I get the value of the attributes of the active settings when are bylevel ??.

With this code ,  I get the value , but if are bylevel it returns me -1 or bylevel ... any idea???

Thanks !!

With ActiveSettings
    Main.txtColor.Text = .color
    Main.txtNivell.Text = .Level.Name
    Main.txtGruix.Text = .LineWeight
    Main.txtEstil.Text = .LineStyle.Name
    Main.txtCella.Text = ""
    Main.chkCella.Value = False
    Main.txtTipus.Text = -1
    Main.txtClasse.Text = -1
End With