I am using VB6 and have set up a procedure with the parameter LCDLine()
which is an array of shapes. Well something is adrift because it will not
compile on line ....LcdLine(I).Visible = False

Any help will be greatly received
Geoff

Private Sub LCD(ByVal No As Integer, ByRef LcdLine() As Shape)
Dim I As Integer

For I = 1 To 7
LcdLine(I).Visible = False
Next I

Select Case No
Case 0
LcdLine(1).Visible = True
LcdLine(2).Visible = True
LcdLine(3).Visible = True
LcdLine(4).Visible = True
LcdLine(5).Visible = True
LcdLine(6).Visible = True
Case 1
LcdLine(2).Visible = True
LcdLine(3).Visible = True

etc..

Geoff wrote:
> I am using VB6 and have set up a procedure with the parameter LCDLine()
> which is an array of shapes. Well something is adrift because it will not
> compile on line ....LcdLine(I).Visible = False

Why not?

--
Dean Earley (dean.earley@icode.co.uk)
i-Catcher Development Team

iCode Systems