It's been about ... forever ... since I've worked in QB. I Thought, for nostalgic reasons, I'd get back to playing with it and write something that *someone* might find useful.

Anyway, here's the issue ...

I've got the following function, which returns the highest number of rows available in the current resolution:
Code:
FUNCTION HighScreenRows
   DIM ScreenMode(4)
   '*** find maximum screen rows ***
   ScreenMode(1) = 25: ScreenMode(2) = 43: ScreenMode(3) = 50: ScreenMode(4) = 60
   FOR intRows = 1 TO 4
      ResolutionGood = 1
      ON ERROR GOTO ErrorHandler
      WIDTH 80, ScreenMode(intRows)
      ON ERROR GOTO 0
      '
      IF ResolutionGood = 1 THEN HighScreenRows = ScreenMode(intRows)
   NEXT intRows
   '
   VIEW PRINT
   EXIT FUNCTION

ErrorHandler:
   '*** capture screenmode errors ***
   ResolutionGood = 0
   RESUME NEXT

END FUNCTION
The code relies on the error handling to determine rows. The problem is that it gives me a "Label not found" on the "ON ERROR GOTO ErrorHandler" line.

Any help here?