vb剪贴板代码（包括语法） 两个文本框，三个按钮（剪切，复制，粘贴）

Private Sub Command1_Click() '剪切
Call Command2_Click
Text1.Text = ""
End Sub
Private Sub Command2_Click() '复制
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub
Private Sub Command3_Click() '粘贴
Text2.Text = Clipboard.GetText
End Sub