IF !USED('graph') Use Graph In 0 Alias Graph shared again ENDIF #DEFINE CRLF CHR(13)+CHR(10) #DEFINE TAB CHR(9) LOCAL lcData select DtoC(Hitdate) rdccode,Unique_Hits totComp from RsMonthDateWiseHits INTO CURSOR Wtemp1 SELECT wtemp1 SELECT TOP 32 * FROM Wtemp1 ORDER BY RDCCODE INTO CURSOR Wtemp IF _TALLY > 255 Messagebox("Graph supports a maximum of 255 items."+chr(13)+"Please refine critera.",0+64+0,"Diotek Infotech") RETURN ENDIF #DEFINE CAP_LOC "" SELECT wtemp lcData = " " + TAB + CAP_LOC + CRLF SCAN lcData = lcData + ALLTRIM(wtemp.rdccode) lcData = lcData + TAB lcData = lcData + ALLTRIM(STR(wtemp.totcomp)) + CRLF ENDSCAN SELECT Graph APPEND GENERAL msgraph DATA lcData SELECT Graph Replace Graph.Title WITH "Date Wise Unique Hits" IF USED('Wtemp1') USE IN Wtemp1 ENDIF IF !empty(OldAlias) SELECT &OldAlias ENDIF this.parent.olbMSGraph.controlSource='Graph.MsGraph'>Would you kindly elaborate more?