主题：[求助]如何设置控件边框底纹颜色

你要这个？

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104121&skin=0

首先，有一些控件的大小是固定的。比如 textbox

不固定大小的控件拖动的情况你这样处理：你点击label的时候，mousedown事件，检测是哪个label，记录下来，然后编写mousemove事件，设置控件的大小（比如你点击右下角的label，控件大小就是控件的left、top和你当前鼠标e.x、e.y之间的值得到）

这个意思？8楼那里加上，可以调整线段。

            Dim line1 = e.form.controls("draw_line_" & ar(3))
            line1.left = c.left
            line1.top = c.Top
            line1.Width = c.width

看8楼例子，看10楼代码，我测试没问题。

如果是四条线，你把line1、line2、line3、line4分别设置left、top、width、height的值，即可啊。

把你做的发上来看看。