深圳个人服务网页登录:VB+Matlab7编程问题？

标 题: VB+Matlab7编程问题？

以下代码在Matlab65下运行没有问题，但是在新安装的MATLAB 7.0.4 运行得不到图形，请教问题到底在哪里？

Private Sub Command1_Click()
Dim MatLab As Object
Set MatLab = CreateObject("Matlab.Application")

Clipboard.Clear
Call myeval(Text1, "h=figure;")
Call myeval(Text1, "line;hold on;")
Call myfig(Text1)
Picture1.Picture = Clipboard.GetData()

End Sub

Public Sub myeval(ctext As Control, s As String)
ctext.LinkMode = 0
ctext.LinkTopic = "matlab|engine"
ctext.LinkItem = "engevalstring"
ctext.LinkTimeout = -1
ctext.LinkMode = 2
ctext.LinkExecute s
ctext.LinkMode = 0
End Sub
Public Sub myfig(ctext As Control)
ctext.LinkMode = 0
ctext.LinkTopic = "matlab|engine"
ctext.LinkItem = "engfigureresult"
ctext.LinkMode = 2
ctext.LinkRequest
ctext.LinkMode = 0
End Sub