> PROCEDURE SELECTME > THIS.BACKCOLOR = RGB(0,0,128) > WITH THIS.lblMenu > .FONTBOLD = .T. > .FORECOLOR = RGB(255,255,255) > ENDWITH > * move this option into view if it is off screen > nOptTop = THIS.TOP + THIS.PARENT.TOP > nOptBottom = THIS.TOP + THIS.HEIGHT + THIS.PARENT.TOP > nScnBottom = THISFORM.HEIGHT && - SYSMETRIC(9) > * scroll menu up if option is below screen > IF nOptBottom > nScnBottom > THIS.PARENT.TOP = THIS.PARENT.TOP - ( nOptBottom - nScnBottom ) > THISFORM.VScrollBar.SetSize() > ELSE > * scroll menu down if option is above screen > IF nOptTop < THISFORM.TOP > THIS.PARENT.TOP = THIS.TOP * -1 > THISFORM.VScrollBar.SetSize() > ENDIF > ENDIF >>-------------------------------------------------