在 VB6 中，可以使用以下代码将文本复制到剪贴板上：

Clipboard.SetText "要复制的文本"

如果您想删除文本中的换行符，则可以使用 Replace 函数将换行符替换为空字符串。例如：

Dim myText As String

myText = "这是一个含有\n换行符的文本。"

myText = Replace(myText, vbNewLine, "")

Clipboard.SetText myText

这将把 myText 变量中的换行符移除，并将结果设置为剪贴板中的文本。