Form1(Səhifə):
Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub
End Class

Form2(Səhifə2)
Public Class Form2

    Private Sub ArxaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RəngToolStripMenuItem.Click
        RichTextBox1.Undo()
    End Sub

    Private Sub AçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AçToolStripMenuItem.Click
        Try
            Dim dlg As OpenFileDialog = New OpenFileDialog
            dlg.Title = "Açıldı"
            dlg.Filter = "Fayl Text Dəstəkləyir (*.txt)|*.txt"
            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.LoadFile(dlg.FileName)
            End If
        Catch ex As Exception : End Try
    End Sub

    Private Sub YeniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaxlaToolStripMenuItem.Click
        RichTextBox1.Clear()
    End Sub

    Private Sub ProqramistToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProqramistToolStripMenuItem.Click
        MsgBox("Coded by K3N4N")
    End Sub

    Private Sub ŞriftSeçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ŞriftSeçToolStripMenuItem.Click
        Try
            Dim dlg As FontDialog = New FontDialog
            dlg.Font = RichTextBox1.Font
            If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.Font = dlg.Font
            End If
        Catch ex As Exception : End Try
    End Sub

    Private Sub YaddaşaVerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaglaToolStripMenuItem.Click
        Try
            Dim dlg As SaveFileDialog = New SaveFileDialog
            dlg.Title = "Yaddaşa ver"
            dlg.Filter = "Fayl Text Dəstəkləyir (*.txt)|*.txt"
            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
            End If
        Catch ex As Exception : End Try
    End Sub

    Private Sub QabaqToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QabaqToolStripMenuItem.Click
        RichTextBox1.Redo()
    End Sub

    Private Sub KəsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KəsToolStripMenuItem.Click
        RichTextBox1.Cut()
    End Sub

    Private Sub KopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KopToolStripMenuItem.Click
        RichTextBox1.Copy()
    End Sub

    Private Sub YapıştırToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YapıştırToolStripMenuItem.Click
        RichTextBox1.Paste()
    End Sub

    Private Sub TəmizləToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TəmizləToolStripMenuItem.Click
        RichTextBox1.Clear()
    End Sub

    Private Sub HamsınıIşarələToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HamsınıIşarələToolStripMenuItem.Click
        RichTextBox1.SelectAll()
    End Sub

    Private Sub RəngSeçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RəngSeçToolStripMenuItem.Click
        Try
            Dim dlg As ColorDialog = New ColorDialog
            dlg.Color = RichTextBox1.ForeColor
            If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.ForeColor = dlg.Color
            End If
        Catch ex As Exception : End Try
    End Sub

    Private Sub AATeaMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AATeaMToolStripMenuItem.Click
        MsgBox("Anti-armenia.ORG/ HaCKinG and Securty Portal")
    End Sub
End Class