Cut/Copy/Paste code (works on any control): 

Sub mnuCopy_click()

    Clipboard.Clear
    
    Select Case True
    
        Case TypeOf Screen.ActiveControl Is TextBox
          Clipboard.SetText Screen.ActiveControl.SelText
          
        Case TypeOf Screen.ActiveControl Is ComboBox
            Clipboard.SetText Screen.ActiveControl.Text
        
        Case TypeOf Screen.ActiveControl Is PictureBox
            Clipboard.SetText Screen.ActiveControl.Picture
        
        Case TypeOf Screen.ActiveControl Is ListBox
            Clipboard.SetText Screen.ActiveControl.Text
            
    End Select	'No action for the other controls
    
End Sub


Sub mnuCut_click()

    mnuCopy_click       ' First Copy

    Select Case True    ' Now clear control
    
        Case TypeOf Screen.ActiveControl Is TextBox
            Screen.ActiveControl.SelText = ""
            
        Case TypeOf Screen.ActiveControl Is ComboBox
            Screen.ActiveControl.Text = ""
        
        Case TypeOf Screen.ActiveControl Is PictureBox
	    Screen.ActiveControl.Picture = LoadPicture()
        
        Case TypeOf Screen.ActiveControl Is ListBox
            Screen.ActiveControl.RemoveItem Screen.ActiveControl.ListIndex
    
    End Select          'No action for the other controls

End Sub



Sub mnuPaste_click()

    Select Case True

        Case TypeOf Screen.ActiveControl Is TextBox
            Screen.ActiveControl.SelText = Clipboard.GetText()
    
        Case TypeOf Screen.ActiveControl Is ComboBox
            Screen.ActiveControl.Text = Clipboard.GetText()
        
        Case TypeOf Screen.ActiveControl Is PictureBox
            Screen.ActiveControl.Picture = Clipboard.GetData()
        
        Case TypeOf Screen.ActiveControl Is ListBox
            Screen.ActiveControl.AddItem Clipboard.GetText()
    
    End Select      'No action for the other controls

End Sub