也帮兄弟我看个小问题,好吗???

'--------------------------------------------
'本例演示了剪贴板的使用方法，GetText 、SetText
'Clear 方法是剪贴板的几个方法，我们用它来复制
'文本，对于图象以及其它格式的数据的操作，请参考
'VB帮助文件。
'--------------------------------------------
Dim DataString As StringPrivate Sub Command1_Click()
On Error Resume Next
If Text1.Text = "" Then
Msg = "第一个文本框内不能为空"
Exit Sub
Else
Clipboard.Clear
'SetText方法，用于复制文本到剪贴板上
'使用语法：object.SetText data, [format]
'data    必需的。是被放置到剪贴板中的字符串数据。
'Format  可选的。一个常数或数值，按照下列设置中的描述，指定 Visual Basic 识别的剪贴板格式。
'vbCFLink    &HBF00     DDE 对话信息
'vbCFRTF     &HBF01     RTF 格式
'vbCFText    1          (缺省值)文本
Clipboard.SetText (Text1.Text)
End If
End SubPrivate Sub Command2_Click()
'GetText方法，用来取得剪贴板上的文本内容
'使用语法为：Clipboard.GetText([数据的类型])
temp = Clipboard.GetText(vbCFText)
Text2.Text = temp
End SubPrivate Sub Command3_Click()
'Clear方法，用于清空剪贴板上的数据
'使用语法：Clipboard.Clear
Clipboard.Clear
End Sub