Privates VorDetail_Format (Löschen als ganze Zahl, FormatCount als ganze Zahl)
Const FETTE = 700
Const NORMAL = 400
Wenn [Ihr Steuername] = dann „schloß“
[Ihr Steuername] vbRed .ForeColor =
[Ihr Steuername] .FontWeight = FETT
Sonst
[Ihr Steuername] .ForeColor = vbBlack
[Ihr Steuername] .FontWeight = NORMAL
Beenden wenn
Unterseeboot beenden
|