Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1_Click RichTextBox1.SelectionIndent=20 RichTextBox1.SelectionHangingIndent=30 RichTextBox1.SelectionRightIndent=15 End Sub