I have a section of a program (in a module) which is simply expressed as follows

Function Calc (ByVal Var1 As Double, ByVal VAr2 As Double) As Double

mdbl_A(1) = 2: mdbl_B(1) = 3: mdbl_C(1) = 11.375
mdbl_A(2) = 1: mdbl_B(2) = 0: mdbl_C(2) = 9.25
etc
mdbl_(43) = 0: mdbl_B(43) = 5: mdbl_C(43) = 0.25

for i = 1 to 43
     Calc = Calc + Var1^mdbl_A(i) + exp(mdbl_B(i) * Var2 ^ mdbl_C(i))
next i

end function

Later in the program I have to do different calculations using the same mdbl_.(..) values.

The only way I can see to do this is to duplicate all the variable in each function I have to calculate.

What I want to do is declare the variables (mdbl_.(..)) as constants but constants cannot be arrays in VB6 to the best of my knowledge.

Any help gratefully recieved.

You could declare them as an enumerated type e.g.

Pubic Enum MyConstants    mdbl_A1 = 2    mdbl_A2 = 1    '...etc... End Enum

HTH,
  Duncan

____________________________
--8<------------------------------
Free components and source code - see http://www.merrioncomputing.com/Download/index.htm for details

If you put a module, or if you have one form, you can also do the following:

' In a module, or form if only used in 1 form:

Public mdbl_A(43) As Double
Public mdbl_B(43) As Double
Public mdbl_C(43) As Double

Option Explicit

Public Function Init() As Boolean
    On Error Goto Err_Init
    mdbl_A(1) = 2: mdbl_B(1) = 3: mdbl_C(1) = 11.375
    mdbl_A(2) = 1: mdbl_B(2) = 0: mdbl_C(2) = 9.25
    ...
    mdbl_A(43) = 0: mdbl_B(43) = 5: mdbl_C(43) = 0.25
    Init=True
    Exit Function
Err_Init:
    Init=False
End Function
Public Function DeInit() as Boolean
' Not needed, but if you'd want
    On Error Goto Err_DeInit
    Erase mdbl_A
    Erase mdbl_B
    Erase mdbl_C
    DeInit=True
    Exit Function
Err_DeInit:
    DeInit=False
End Function

' In the form:
Private Sub Form_Load()
     Init
End Sub

Many thanks for the help. It never ocurred to me to put the constants in a procedure and call that as needed. Obvious really !