程序代码：

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