SET TALK OFF >CREATE TABLE trend_data (cost N(6)) >FOR i = 1 TO 100 > APPEND BLANK > nRand = RAND()*100 > REPLACE cost WITH nRand >ENDFOR > >PUBLIC oForm >oForm = CREAT([TrendForm]) >oForm.DRAWWIDTH = 2 >oForm.FORECOLOR = RGB(255,0,0) > > >GO TOP >xStart = RECNO() * 100 >FOR k = 1 TO 100 > x1 = xStart > x2 = xStart + 4 > y1 = trend_data.cost + 175 > SKIP > y2 = trend_data.cost + 175 > oForm.LINE(x1,y1,x2,y2) > xStart = xStart + 4 >ENDFOR > >oForm.DRAWWIDTH = 3 >oForm.FORECOLOR = RGB(0,0,255) >oForm.LINE(70,80,70,400) >oForm.LINE(70,400,550,400) > >oForm.SHOW > >DEFINE CLASS CostLable AS LABEL > BACKSTYLE = 0 > CAPTION = [C O S T] > FONTBOLD = .T. > FONTSIZE = 14 > HEIGHT = 88 > LEFT = 30 > TOP = 190 > WIDTH = 15 > WORDWRAP = .T. >ENDDEFINE > >DEFINE CLASS TimeLable AS LABEL > BACKSTYLE = 0 > CAPTION = [TIME] > FONTBOLD = .T. > FONTSIZE = 14 > LEFT = 300 > TOP = 430 >ENDDEFINE > >DEFINE CLASS TrendForm AS FORM > AUTOCENTER = .T. > BACKCOLOR = RGB(255,255,255) > BORDERSTYLE = 1 > CAPTION = [] > CLOSABLE = .F. > CONTROLBOX = .F. > HEIGHT = 480 > MAXBUTTON = .F. > MINBUTTON = .F. > MOVABLE = .F. > WIDTH = 640 > ADD OBJECT cost AS CostLable > ADD OBJECT TIME AS TimeLable > PROCEDURE CLICK > RELEASE THISFORM >ENDPROC >ENDDEFINEHope this helps.