程序运行时,可以将内容读到代码窗口运行吗?

'能,比如 内容全部复制
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Label4_Click()
Dim ret&
ShellExecute hWnd, "open", "http://wpa.qq.com/msgrd?V=1&Uin=" + text1.Text, "", "", "1"
End Sub
'就是打开网站http://wpa.qq.com/msgrd?V=1&Uin= 加上 text1.text内输入的内容