For a Richtext-Area ("txt") I have a Toggle-Button for center alignment ("btnZentriert") and try this: Public Sub btnZentriert_Click() If btnZentriert.Value = True Then txt.Format.Alignment = Align.Center End It doesn't have an effect, but I don't see how to do else. Please enlighten me :-) Rolf