在vb中调用matlab绘图

Question

大家好，我在vb中编写了一段调用matlab函数来绘图的代码，但是其中的commandialog控件在使用一次后就出现错误，不知哪位高手能不能给点帮助。谢谢！
期代码如下：
Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then
        Text1.Text = CommonDialog1.FileName
    End If
End SubPrivate Sub Command2_Click()
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then
        Text2.Text = CommonDialog1.FileName
    End If
End SubPrivate Sub Command3_Click()
    Dim i As Integer
    Dim X As Variant
    Dim Y As Variant
    Dim a As String
    Dim ax As Variant
    ax = vbaxes(Picture1.hWnd)
    Dim Sum As Integer
    a = "start"
    i = 0
    Open Text1.Text For Input As #1
    Do While Not EOF(1)
        i = i + 1
        Line Input #1, a
    Loop
    Close #1
    Sum = i
    X = zeros(1, Sum)
    Y = zeros(1, Sum)
    Open Text1.Text For Input As #1
    For i = 1 To Sum
        Line Input #1, a
        X(1, i) = Val(a)
    Next i
    Close #1
    Open Text2.Text For Input As #1
    For i = 1 To Sum
        Line Input #1, a
        Y(1, i) = Val(a)
    Next i
    Close #1
    Call plot(X, Y)
End Sub
其中又3个command控件，2个text控件，一个commandialog控件，一个picture控件。
使用前需先引用mmatrix。

Answer 1

开始是没错的，但是在运行第二次时commandialog就会出现错误。

Answer 2

http://download.csdn.net/source/1566341
这是对于这问题编写的一个简单的程序，在打开第一次运行时是没有问题的，但是第一次运行结束后如你再重复进行第二次的循环是就会出现错误！希望大家帮帮忙，谢谢！

Answer 3

http://download.csdn.net/source/1566341
这是对于这问题编写的一个简单的程序，在打开第一次运行时是没有问题的，但是第一次运行结束后如你再重复进行第二次的运行点击command1时就会出现错误！希望大家帮帮忙，谢谢！