Select wCodEvento
Case 1 ' *** USING CS ON THE 1ST CASE JUST FOR TEST ***
cs.Initialize.Append(IIF(wRegistro(7) = Null, "Nascid" & wSufixo, "Nascid" & wSufixo & " em " & wRegistro(7)) & " no dia ")
cs.Bold.Color(Colors.Green).Append(wDataEvento).Pop.Pop 'two pops: the first removes the green color and the second removes the bold style
cs.Append(". ").PopAll
wTxtNascimento = cs
' lblDetalhePessoa.text = cs
' Return
Case 2 '
wTxtCasamento = wTxtCasamento & "Casad" & wSufixo & " no dia " & wDataEvento & " com " & wRegistro(8) & IIF(wRegistro(7) = Null, "", ", em " & wRegistro(7)) & ". "
Case 3 '
wTxtBatizado = "Batizad" & wSufixo & " no dia " & wDataEvento & IIF(wRegistro(7) = Null, "", ", em " & wRegistro(7)) & ". "
End Select
Next
' *** CS text (wTxtNascimento) prepared above does nothing when combined as below
lblDetalhePessoa.text = wTxtApelido & wTxtIdade & wTxtNascimento & wTxtPaiMae & wTxtCasamento & wTxtFalecimento & wTxtCrismado & wTxt1Comunhao & wTxtFormado & wTxtDivorcio & wTxtEmancipado