(More) Codes for Visual Basic .NET

For the toolbar: You click cut, and the text in the textbox disappears. If you click paste after that, the text will appear, over and over again.
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
If e.Button Is ToolBar1.Buttons(0) Then
TextBox1.Cut()
ElseIf e.Button Is ToolBar1.Buttons(1) Then
TextBox1.Paste()
End If