如何把VB的运行结果复制到剪贴板中

Private Sub Command1_Click()
a = "abcd"
b = "efgh"
d = a & b
Print d
End Sub

我们知道，在VB中输入这段程序运行后的结果是输出“abcdefg”，请问，如何编写程序，能在上面这段程序运行之后把结果“abcdefg”复制到剪贴板中。

之后

用

Shell "notepad"

这个语句能新建一个记事本，如何编写VB程序，在判断新建的记事本已打开之后，将复制到剪贴板中的“abcdefg”粘贴到新建的记事本中。

Shell "notepad", 1
SendKeys "^" + "V"
不过这样用很容易由于系统延迟出问题
Ctrl+V不一定使用在记事本上
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_PASTE = &H302
Private Sub Command1_Click()
a = "abcd"
b = "efgh"
d = a & b
Shell "notepad", vbNormalFocus
Call SendMessage(FindWindowEx(FindWindow(vbNullString, "无标题 - 记事本"), 0, "Edit", vbNullString), WM_PASTE, 0, 0&)
End Sub