1。添加1个command控件，然后将command复制后粘贴，这样就创建了一个按钮控件数组。分别将其caption命名为：剪切、复制、粘贴。enabled属性均为false。
2。添加一个richtextbox控件（在工具里点击鼠标右键，选择部件后添加）。
  
3。添加一个label控件
代码如下：
Private Sub Command1_Click(Index As Integer)
Select Case Index
    Case 0
        If RichTextBox1。
  SelText <> "" Then
            Clipboard。Clear
            Clipboard。SetText (RichTextBox1。SelText)
            RichTextBox1。
  SelText = ""
            Command1(0)。Enabled = False
            Command1(1)。Enabled = False
            Command1(2)。Enabled = True
            Label1。
  Caption = "剪切操作完成！"
        Else
            Label1。Caption = "请选择要剪切的内容！"
        End If
    Case 1
        If RichTextBox1。
  SelText <> "" Then
            Clipboard。Clear
            Clipboard。SetText (RichTextBox1。SelText)
            Command1(0)。
  Enabled = False
            Command1(1)。Enabled = False
            Command1(2)。Enabled = True
            Label1。Caption = "复制操作完成！"
        Else
            Label1。
  Caption = "请选择要复制的内容！"
        End If
    Case 2
        If Clipboard。GetText <> "" Then
            RichTextBox1。SelText = Clipboard。
  GetText
            Command1(2)。Enabled = False
            Label1。Caption = "粘贴操作完成！"
        End If
End Select
End Sub
Private Sub RichTextBox1_Change()
If RichTextBox1。
  Text <> "" Then
Command1(1)。Enabled = True
Command1(0)。Enabled = True
Label1。Caption = "您可以进行剪切和复制操作！"
End If
End Sub。