[附件]

好像没有附件。
o = NEWOBJECT("form1")
o.addobject("rt","olewithbar","RICHTEXT.RichtextCtrl.1")
o.rt.text = "2017-03-24,'603355,莱克电气,53.8,55.6,53.71,54.83,55.61,-1.81,-3.2548,2.9322,1955514,106685392.0,21573800000.0,3587922000.02017-03-23,'603355,莱克电气,55.61,56.85,54.41,55.49,55.52,0.09,0.1621,2.5479,1699188,94535675.0,22299610000.0,3708630900.0"
o.show
READ events


DEFINE CLASS olewithbar as olecontrol
    .object.scrollbars = 2
    visible =.t.
    height = 100
    width = 100
ENDDEFINE
DEFINE CLASS form1 as Form
    PROCEDURE unload
        CLEAR EVENTS
    ENDPROC
ENDDEFINE

用表单设计器是可以的，这个我试过。