'Open a New Project and add the following to Form1
'       TextBox
'       menu:	Copy 	mnuCopy
'		Cut	mnuCut
'		Paste	mnuPaste
'
'Copy This entire file and Paste into (General)(Declarations)
'
'Cut/Copy/Paste code (for text box):

Sub mnuCopy_click()

   Select Case Text1.SelText
    
        Case ""
            
        Case Else
        
            Clipboard.Clear
            Clipboard.SetText Text1.SelText
            
    End Select
    
 End Sub


Sub mnuCut_click()

    Select Case Text1.SelText
    
        Case ""
            
        Case Else
        
            Clipboard.Clear
            Clipboard.SetText Text1.SelText
            Text1.SelText = ""
            
    End Select
    
End Sub


Sub mnuPaste_click()

    Text1.SelText = Clipboard.GetText
    
End Sub