Public sub start()
Dim Result As String
Matlab As Object
Set Matlab = Createcbject("MATLAB.Application")
Result =Matlab.Execute("start01")
Call Matlab.minimizecommandwindow
Result =Matlab.Execute("h=actxserver(‘MATLAB.Application’)”)
Result =Matlab.Execute("set(h,'visible',1)")
End Sub