Private Sub Command1_Click()Clipboard.Clear '清空剪贴板Clipboard.SetText Text1.Text '将text1的内容放入剪贴板End Sub
用ClipBoard对象ClipBoard.SetText Text1.text这句就可以把Text1.text放入系统剪贴板.
