Visual Basic : Not Defteri Yapımı

[vb6da olur. vb2010 da textbox yerine richtextbox kullanın]
Gerekenler;
Formumuza bir Text Box, 9 buton, 1 Save Dialog ve 1 Open Dialog ekleyelim.
Butonlarımızın ismi şöyle olsun: Kaydet, Aç, Kes, Kopyala, Yapıştır, Temizle, Geri Al, İleri Al, Hepsini Seç.

Kod:

Kaydet Butonuna : 
Try
Dim d1g As SaveFileDialog = New SaveFileDialog
d1g.Title = "Save"
d1g.Filter = "Rich Text Files (*.rtf)|*.rtf"
If d1g.ShowDialog() = Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(d1g.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception

End Try
Kodunu Ekleyelim.

Aç Butonuna :
Try
Dim d1g As OpenFileDialog = New OpenFileDialog
d1g.Title = "Open"
d1g.Filter = "Rich Text Files (*.rtf)|*.rtf"
If d1g.ShowDialog() = Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(d1g.FileName)
End If
Catch ex As Exception

End Try
Kodunu Ekleyelim.

Kes Butonu :
RichTextBox1.Cut()

Kopyala Butonu :
RichTextBox1.Copy()

Yapıştır Butonuna :
RichTextBox1.Paste()

Temizle Butonuna :
RichTextBox1.Clear()

Geri Al Butonuna : 
RichTextBox1.Undo()

İleri Al Butonuna :
RichTextBox1.Redo()

Hepsini Seç Butonuna :
RichTextBox1.SelectAll()