用vb编写复制粘贴的代码是神马？？

上面的那个不正确，重新发给你源码。。在窗体上放两个按钮。。一个list1
代码如下：
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

百度clipboard.gettext
clipboard.settext