不美观，不大实用。

我们要学会创造，学会试验，动机和过程才是重中之重，结果并不重要，从无到有，就是奇迹。

修改了一下，虽然不算是完美，但感觉用来应对ActiveX控件分割的问题应该可行。

of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 As Form
    Height = 500
    Width  = 900
    ADD OBJECT RT As Olecontrol WITH OleClass="RICHTEXT.RichtextCtrl.1",Top=10,Left=10,Width=200,Height=400
    ADD OBJECT LN as line WITH top=10,left=212,width=0,height=400,BorderWidth=1,BorderStyle=3,MousePointer=9
    ADD OBJECT WB As Olecontrol WITH OleClass="Shell.Explorer.2",Top=10,Left=215,Width=680,Height=400

    PROCEDURE Init
        this.rt.text = "RichtextCtrl"
        this.WB.Silent = 1
        thisform.WB.navigate2("https://bbs.bccn.net")
    ENDPROC
    
    PROCEDURE LN.MouseEnter(nButton, nShift, nXCoord, nYCoord)
        this.BorderWidth = 2
    ENDPROC  
     
    PROCEDURE LN.MouseLeave(nButton, nShift, nXCoord, nYCoord)
        this.BorderWidth = 1
    ENDPROC   

    PROCEDURE LN.MouseMove(nButton, nShift, nXCoord, nYCoord)
        IF (nButton == 1)
            IF !BETWEEN(nXCoord, thisform.rt.Left+1, thisform.wb.Left+thisform.wb.Width-3)
                RETURN 
            ENDIF
            thisform.LockScreen = .T.
            xx = nXCoord - this.Left
            this.Left = nXCoord
            thisform.rt.Width = thisform.rt.Width + xx
            thisform.wb.Left  = thisform.wb.Left  + xx
            thisform.wb.Width = thisform.wb.Width - xx
            thisform.LockScreen = .F.
        ENDIF 
    ENDPROC
ENDDEFINE

“美观”就有点抽象，不好说，各花入各眼。
“实用”就不能脱离实际，能解决实际问题就好，可以不断学习改善。

想好看简单，里面放上图片

[此贴子已经被作者于2021-12-18 13:18编辑过]

简单处理显示效果，可以涂上颜色
.init 里
this.BackStyle = 1    && 不透明
this.BackColor = RGB（X,Y,Z）    && 选一个你喜欢的颜色

[此贴子已经被作者于2021-12-18 17:11编辑过]

大侠们，学习啦，谢谢！

操作未见异常，这样的效果可以了。

OK