vb控制ANSYS后台运行后如何提取弯矩图，挠度图的问题

各位好！

我刚学VB控制ANSYS后台运行方面的问题，我拿老外计算简支梁的一个典型示例作为学习的目标，想明白怎么用VB控制ANSYS，这方面已经没问题了，但现在面临提取运行结果方面的难题，在前台运ANSYS，提取参数和特性我明白，但现在不明白的是在后台运行后如何提取弯矩图，挠度图及单元界面，我想点击”运行ANSYS”按钮，显示"ANSYS运行完毕！"后能在Picture1.PictureBOX内显示弯矩图，我把运行的源代码传上，想请大家帮忙如何调整源代码，能实现Picture1.PictureBOX内显示弯矩图，谢谢大家！

源代码和老外计算的界面见附件！源代码在ANSYS10.0中运行！

VB控制ANSYS源代码如下：

Option Explicit

Private Sub Command1_Click()

Dim X As Integer

'在ANSYS工作路径下建立空白命令流文件

Open"VB_ANSYS.inp" For Output As #1

'写入相关命令语句

Print #1, "finish"

Print #1, "/clear"

Print #1, "/prep7"

Print #1, "K,1,0,0"

Print #1,"K,2,1000,0"

Print #1, "L,1,2"

Print #1, "ET,1,BEAM3"

Print #1,"R,1,100,833.333,10"

Print #1,"MP,EX,1,200000 "

Print #1,"MP,PRXY,1,0.33 "

Print #1,"ESIZE,100"

Print #1,"LMESH,ALL"

Print #1, "FINISH"

Print #1, "/SOLU"

Print #1,"ANTYPE,0"

Print #1,"DK,1,UX,0,,,UY"

Print #1,"DK,2,UY,0"

Print #1,"SFBEAM,ALL,1,PRES,1"

Print #1, "SOLVE"

Print #1, "FINISH"

Print #1, "/POST1"

Print #1,"PLDISP,2"

Print #1,"ETABLE,SMAXI,NMISC, 1 "

Print #1,"ETABLE,SMAXJ,NMISC, 3"

Print #1,"PLLS,SMAXI,SMAXJ,1,0"

Print #1, "/SHOW,JPEG"

Print #1,"JPEG,DEFAULT"

Print #1, "/GFILE,400"

Print #1, "PLNSOL, B，,Y"

Print #1, "/SHOW,CLOSE"

Picture1.Picture =LoadPicture("C:\Program Files\Microsoft Visual Studio\VB98\a8.jpg")

'关闭文件

Close #1

'以后台运行的方式调用ANSYS100.exe程序

X = Shell("C:\ProgramFiles\ANSYS Inc\v100\ansys\bin\intel\ansys100.exe -b -p ansys -i VB_ANSYS.inp-o file.out")

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

If Dir(App.Path & "\file.err") <> ""Then

'App.Path为当前目录路径，语句功能：如果有file.err文件产生，

'则说明VB的shell函数对ANSYS的调用成功。

MsgBox ("ANSYS运行完毕！")

End If

Timer1.Enabled = False

End Sub

Private Sub Command2_Click()

'关闭当前窗口

Unload Me

End Sub