VB里，运行CMD，如何吧cmd在picture里面显示啊？

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Form_Resize()
Picture1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

Private Sub Timer1_Timer()
h& = FindWindow("ConsoleWindowClass", vbNullString)
If h Then SetParent h, Picture1.hWnd
End Sub

可以用Setparent来设置关系，或用流捕获的

用 api 函数，屏幕截图,捕获标题为 cmd.exe 的窗口,
然后输出到 PictureBox 中,然后保存

--------------------------------
或者命令后加 ">c:\a.txt" 把结果输出为文本到"C:\a.txt" 下!

3楼的代码没问题，只是在最下面Timer1_Timer()里的h&要把&去掉，然后在最顶输入dim h as double。
接着新建form1窗体的Activate事件Form_Activate()，在Form_Activate()内输入Shell