如何在表单上实现：左边显示*.doc（或*.docx）文档的标题，右边显示*.doc（或*.docx）文档的内容。望高手赐教，万分感谢！！！

SET DEFAULT TO ADDBS(JUSTPATH(SYS(16)))
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as Form
    width = 800
    height = 400
    ADD OBJECT list1 as listbox WITH left=10,top=10,width=200,height=380,RowSourceType=7
    ADD OBJECT wb as OleControl WITH left=220,top=10,width=570,height=380,OleClass="Shell.Explorer.2"
    PROCEDURE list1.click
        cHtml = this.list(this.ListIndex)
        IF UPPER(JUSTEXT(cHtml))=="HTML"
            thisform.wb.Navigate(this.list(2)+cHtml)
        ENDIF
    ENDPROC
ENDDEFINE

以上是引用的是吹版主的代码，不知如何改动下面代码，能实现我提出的功能，请高手帮忙。
IF UPPER(JUSTEXT(cHtml))=="HTML"
            thisform.wb.Navigate(this.list(2)+cHtml)

没用