hey everyone,
im having problem with a procedure in a program im working on the codes looks like this:
Private Sub ShowGainers(nom, change, numCompanies)
Dim index As Integer
picOutput.FontBold = True
picOutput.Print Tab(10); "Gainers"
picOutput.Print "Company"; Tab(17); "% Change"
picOutput.FontBold = False
Let index = 1
Do While (index <= numCompanies) And (change(index) >= 0)
picOutput.Print nom(index); Tab(22); Format(FormatNumber(change))
index = index + 1
Loop
End Sub


when i try to run it i keep getting a type 13 mismatch error. if anyone has spare time and can help thank you in advance. meth