Program to create popup menu with options cut, copy, paste.

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu pop End If End Sub Private Sub cut_click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub Private Sub copy_click() Clipboard.Clear Clipboard.SetText Text1.Text End Sub Private Sub paste_click() Text1.SelText = Clipboard.GetText End Sub