Построить график функции в MathCAD используя код в Visual Basic

Dim mcdObject As New Object 
Dim mcdPointsMatrix As Mathcad.MatrixValue 
Dim mcdMatrixNew As Mathcad.MatrixValue 
 
//создают COM объект. 
mcdMatrixNew = CType(Interaction.CreateObject("Mathcad.MatrixValue"), Mathcad.MatrixValue) 
 
Try 
mcdPointsMatrix = CType(mcdWorkSheet.GetValue("Points"), Mathcad.MatrixValue) 
bMatrixExists = True 
Catch ex As Exception 
bMatrixExists = False 
end Try 
For i As Integer = 600 - 1 To 0 Step -1 
For j As Integer = 18 To 0 Step -1 
If bMatrixExists = False Then 
mcdMatrixNew.SetElement(i, j, 1) 
Else 
mcdPointsMatrix.SetElement(i, j, 1) 
End If 
Next 
Next 
If bMatrixExists = False Then 
 
//передают матрицу переменной Points 
mcdWorkSheet.SetValue("Points", mcdMatrixNew) 
Else 
mcdWorkSheet.SetValue("Points", mcdPointsMatrix) 
End If

Dim MC As Mathcad.Application
Dim WK As Mathcad.Worksheets
Dim WS As Mathcad.Worksheet
Dim mcdMatrixNew As Mathcad.MatrixValue
'Dim values(4, 4) As Double
 
Private Sub CommandButton1_Click() ' запустить маткад открыть файл
Set MC = CreateObject("Mathcad.Application")
'Set MC = New Mathcad.Application
Set WK = MC.Worksheets
Set WS = WK.Open("C:\путь\1.xmcd")
MC.Visible = True
 
End Sub
 
Private Sub CommandButton3_Click() ' передать матрицу
'Set mcdMatrixNew = CType(Interaction.CreateObject("Mathcad.MatrixValue"), Mathcad.MatrixValue)
Set mcdMatrixNew = CreateObject("Mathcad.MatrixValue")
Dim i As Integer
Dim j As Integer
For i = 0 To 4 Step 1
For j = 0 To 4 Step 1
'values(i, j) = 1
mcdMatrixNew.SetElement i, j, 1
Next
Next
WS.SetValue "Points", mcdMatrixNew
'WS.SetValue("Points", values)
WS.Recalculate
End Sub
 
Private Sub CommandButton2_Click() ' выход без сохранения
WS.Close (Mathcad.MCSaveOption.mcDiscardChanges)
System.Runtime.InteropServices.Marshal.ReleaseComObject (WK)
System.Runtime.InteropServices.Marshal.ReleaseComObject (WS)
System.Runtime.InteropServices.Marshal.ReleaseComObject (MC)
End Sub