Assunto: Tirando a Tag de acesso do nome Sáb 18 Fev 2012, 17:55
Procure por:
Código:
' Set Name Caption Select Case .Access
E modifique até o "end select" para:
Código:
' Set Name Caption Select Case .Access Case 0: .tempName = Trim(.Name) Case ADMIN_MONITOR: .tempName = Trim(.Name) Case ADMIN_MAPPER: .tempName = Trim(.Name) Case ADMIN_DEVELOPER: .tempName = Trim(.Name) Case ADMIN_CREATOR: .tempName = Trim(.Name) End Select