Problem passing arrays from a basic module to a sub in a form

[StanH]

I am trying to pass two arrays from a sub in a VB6 basic module to a sub in the code section of a form that contains an MSChart control. Each array repesents a line and contains two columns for the X and Y points.

In the code section of the form that is to receive the arrays, I tried something like this:

Sub MakeDRchart(ChartPointsAc(), ChartPointsRe())
    Dim NfixedK as Long
    NFixedK = ubound(ChartPointsAc,1)
    For J = i To NfixedK 
        Debug.Print J, ChartPointsAc(J,1)
    Next
End Sub

In the basic module where the arrays are created and sent from, I tried something like this:

Dim ChartPointsAc() As Double
  Dim ChartPointsRe() As Double
  ReDim ChartPointsAc(1 To nfixedk)
  ReDim ChartPointsRe(1 To nfixedk)
  Call MakeDRchart(ChartPointsAc(), ChartPointsRe())

How can I make this work?

[wqweto]

Try changing this

Sub MakeDRchart(ChartPointsAc(), ChartPointsRe())

to this

Sub MakeDRchart(ChartPointsAc() As Double, ChartPointsRe() As Double)

cheers,
</wqw>

[StanH]

Try chaning this

Sub MakeDRchart(ChartPointsAc(), ChartPointsRe())

to this

Sub MakeDRchart(ChartPointsAc() As Double, ChartPointsRe() As Double)

cheers,
</wqw>

Thanks, I did that. Now I receive an error at:

Call MakeDRchart(ChartPointsAc(), ChartPointsRe())

This is the error:

CompileError: 
Type mismatch: array or user-defined type expected

[wqweto]

Try Call MakeDRchart(ChartPointsAc, ChartPointsRe) with no extra parens after the arguments.

Where did you get this syntax from? How did you come up with so many parentheses?

cheers,
</wqw>

[StanH]

Try Call MakeDRchart(ChartPointsAc, ChartPointsRe) with no extra parens after the arguments.

Thanks. This is what is working as far.

    Dim ChartPointsAc() As Double
    Dim ChartPointsRe() As Double
    ReDim ChartPointsAc(1 To 2, 1 To 2)
    ReDim ChartPointsRe(1 To 2, 1 To 2)
         ChartPointsAc(1, 1) = 1
         ChartPointsAc(2, 1) = 2
         ChartPointsAc(1, 2) = 3
         ChartPointsAc(2, 2) = 4
    Call MakeDRchart(ChartPointsAc, ChartPointsRe)

Sub MakeDRchart(ChartPointsAc() As Double, ChartPointsRe() As Double)
    Dim J As Integer
    Dim K As Integer
    K = UBound(ChartPointsAc, 1)
    For J = 1 To K
        Debug.Print J, ChartPointsAc(J, 1)
        Debug.Print J, ChartPointsAc(J, 2)
    Next
End Sub

Where did you get this syntax from? How did you come up with so many parentheses?

cheers,
</wqw>

I don't know. Maybe I saw it on social media.

[dilettante]

Yeeeee hah!