Reverse return (Thanks{RESOLVED})

[lee666]

Hi

I´ve got small problem. I´ve got a return of 0 to 156
does anyone knows how I can change this return to 156 to 0

Lee

[RhinoBull]

Where do you "store" your returns? If it's an array then loop backwards:

For i = Ubound(arReturns) To 0
    Debug.Print arReturns(i)
Next i

[lee666]

no maybe i put it wrong
i'm doing calculations on picture box X,Y and return a # betwen 0 and 156


But I need to REVERSE the VALUE, I need A# betwen 156 and 0

[RhinoBull]

Sorry but I have no clue about what you're after ...
If you can just ellaborate a little more ...

[lee666]

this would work but not practical

Public Function Lookup(x%)
Select Case x
Case 0
Lookup = 156
Case 1
Lookup = 155
Case 2
Lookup = 154
Case 3
Lookup = 153
Case 4
Lookup = 152
Case 5
Lookup = 151
Case 6
Lookup = 150
Case 7
Lookup = 149
Case 8
Lookup = 148
Case 9
Lookup = 147
Case 10
Lookup = 146
Case .............So on
End Select

End Function

[Cander]

Lookup = 156 - x%

[MartinLiss]

Lookup = Abs(x - 156)

[MartinLiss]

Lookup = 156 - x%

Of course.

[Cander]

You just had to do it the hard way.

[MartinLiss]

Yes, I was overthinking the problem.

[Cander]

Truth be told, it was my first thought as well.

[lee666]

couldn’t see 4 looking

A big Thank you from lee 2 you all