شی ClipBoard یه متد داره به اسم SetText که یک متن رو به Cliboard کپی میکنه. مثلا میخواهیم متنی که در TextBox1 هست با زدن دکمه ای به اسم Command1 به ClibBoard کپی بشه:
کد:
Private Sub Command1_Click()
Dim myText As String
myText = TextBox1.Text
Clipboard.Clear
Clipboard.SetText myText
End Sub