Private Sub Command1_Click()
RichTextBox1.SelAlignment = rtfLeft
End Sub
Private Sub Command2_Click()
RichTextBox1.SelAlignment = rtfCenter
Private Sub Command3_Click()
RichTextBox1.SelAlignment = rtfRight