救急，高手请进！！

Dim ax As Variant
Private Sub Command1_Click()
  Command1.Visible = False
  titl = "MatrixVB fractal demo"
  N = 14
  m = 300
  cx = 0.025
  cy = 0
  l = 0.03
  x = linspace(cx - l, cx + l, m)
  y = linspace(cy - l, cy + l, m)
  XY = meshgrid(x, y)
  x = XY(1)
  y = XY(2)
  Z = plus(zeros(m), 2.22E-16)
  C = mcomplex(x, y)
  For k = 1 To N
    Form1.Caption = titl & " (calculating " & k & "/" & N & ")"
    DoEvents
    Z = plus(power(Z, Z), C)
  Next
  Form1.Caption = titl
 
  W = mexp(uminus(mabs(Z)))
  pcolor (W)
  colormap (jet)
  axis ("off")
End Sub
Private Sub Form_Load()
  ax = vbaxes(Form1.hWnd)
  Call Form_Resize
End Sub
Private Sub Form_Resize()
  vbrefresh ax
End Sub
以上代码为matcom安装目录下的一个sample，可是运行的时候总是提示“找不到c4500b.dll”文件
但matcom安装后c4500b.dll存在于system32中。就是不能加载！有谁遇到过这样的问题。
以下是一个曲线拟和程序，同样出现这类错误。
Sub kkk()
  Dim D As Matrix
  Dim C As Matrix
  Dim m As Integer
  Dim z As Matrix
   ReDim a(n + 1)
   m = Adodc2.Recordset.RecordCount
   Set D = zeros(1, m)  
   Set C = zeros(1, m)
    Adodc2.Recordset.MoveFirst
 For i = 0 To m - 1
      Adodc2.Recordset.Fields(1) >= 0 And Adodc2.Recordset.Fields(2) >= 0 Then
           D.r1(i + 1) = Adodc2.Recordset.Fields(1)
           C.r1(i + 1) = Adodc2.Recordset.Fields(2)
     
    If Adodc2.Recordset.EOF = False Then
       Adodc2.Recordset.MoveNext
      Else
        Adodc2.Recordset.MoveFirst
     End If
Next
   End If
     Set z = polyfit(D, C, n)
end sub
以上工程中均引用了MMatrix