RichTextBox コントロールならワードパッド程度の機能がありますが。Private Sub Command1_Click() RichTextBox1.SelColor = vbRedEnd Sub