NotePad Tutorial (Part 2(bit 3-3)) in vb

codes:

New btn:

RichTextBox1.Clear()
Me.Text = "Untitled - M.S. Notepad"

Option btn:

Form2.Show()

-----------------------------Form2--------------------------­----------------------

Button1:

If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then My.Settings.textfont = FontDialog1.Font
My.Settings.Save()
My.Settings.Reload()
TextBox1.Text = My.Settings.textfont.ToString
Form1.RichTextBox1.Font = My.Settings.textfont
End If

Button2:

My.Settings.textfont = My.Settings.defaultfont
My.Settings.Save()
My.Settings.Reload()
TextBox1.Text = My.Settings.textfont.ToString
Form1.RichTextBox1.Font = My.Settings.textfont

Button4:
If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then My.Settings.fontcolour = ColorDialog1.Color
My.Settings.Save()
My.Settings.Reload()
TextBox2.Text = My.Settings.fontcolour.ToString Form1.RichTextBox1.ForeColor = My.Settings.fontcolour
End If

Button3:

My.Settings.fontcolour = My.Settings.defaultfontcolour
My.Settings.Save()
My.Settings.Reload()
TextBox2.Text = My.Settings.fontcolour.ToString Form1.RichTextBox1.ForeColor = My.Settings.fontcolour

Button6:

If ColorDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then My.Settings.backcolour = ColorDialog2.Color
My.Settings.Save()
My.Settings.Reload()
TextBox3.Text = My.Settings.backcolour.ToString Form1.RichTextBox1.BackColor = My.Settings.backcolour
End If

Button5:

My.Settings.backcolour = My.Settings.defaultbackcolour
My.Settings.Save()
My.Settings.Reload()
TextBox3.Text = My.Settings.backcolour.ToString Form1.RichTextBox1.BackColor = My.Settings.backcolour