Detail_Format secundário confidencial (cancelamento como o inteiro, FormatCount como o inteiro)
Const = 700 BOLD(REALCE)
NORMAL de Const = 400
Se [seu nome do controle] = “fechado” então
[Seu nome do controle] .ForeColor = vbRed
[Seu nome do controle] .FontWeight = BOLD(REALCE)
Mais
[Seu nome do controle] .ForeColor = vbBlack
[Seu nome do controle] .FontWeight = NORMAL
Terminar se
Terminar o submarino
|