先用VB6.0简单的勾勒一个界面：

详细的代码如下，主要是执行和取消Command的代码：

Private Sub Command1_Click()
    Dim Matlab As Object ' 定义一个对象型变量Matlab
    Set Matlab = CreateObject("Matlab.Application")
    Label3.Caption = Matlab.Execute(Text1.Text)
End Sub

Private Sub Command3_Click()
    Text1.Text = ""
    Label3.Caption = ""
End Sub