Form:-

Program:-

Public Class slip19

    Dim a As String

    Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click

        TextBox1.Cut()

    End Sub

    Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click

        TextBox1.Copy()

    End Sub

    Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click

        TextBox2.ReadOnly = False

        TextBox2.Paste()

        TextBox2.ReadOnly = True

    End Sub

    Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click

        Me.Close()

    End Sub

End Class

Output:-

Design:-

1) Take TextBoxes, Menustrip on Design form.

2) Set Text on Label and Add menus on Menustrip.