在Visual Basic中，复制文本到剪贴板可以通过以下几种方法实现：
方法一：使用 `Clipboard.SetText` 和 `Clipboard.GetText`
这种方法适用于VB.NET，可以直接操作剪贴板。
```vb
Private Sub Command1_Click（）
' 复制文本到剪贴板
Clipboard.SetText（Text1.SelectedText）
End Sub
Private Sub Command2_Click（）
' 从剪贴板粘贴文本到文本框
If Clipboard.GetText（） <> "" Then
Text1.SelectedText = Clipboard.GetText（）
End If
End Sub
```
方法二：使用API函数
这种方法更为稳定，适用于VB 6.0及更早版本。
```vb
Public Sub CopyTextToClip（sData As String）
Dim hMemHandle As Long
Dim lpData As Long
If OpenClipboard（0） Then
If GlobalAlloc（GMEM_MOVEABLE, LenB（sData）） = 0 Then
Exit Sub
End If
lpData = GlobalLock（hMemHandle）
If lpData Then
CopyMemory ByVal lpData, ByVal sData, LenB（sData）
GlobalUnlock hMemHandle
EmptyClipboard
SetClipboardData CF_TEXT, hMemHandle
End If
CloseClipboard
End If
End Sub
```
方法三：使用 `DataObject` 类
这种方法也可以实现文本的复制和粘贴。
```vb
Dim MyData As New DataObject
MyData.SetText "要复制的文本", 1
MyData.PutInClipboard
```
建议
VB.NET：推荐使用 `Clipboard.SetText` 和 `Clipboard.GetText` 方法，因为它们简单且直接。
VB 6.0及更早版本：推荐使用API函数，因为它们更稳定且兼容性好。
根据你的具体需求和VB版本，选择合适的方法即可。