怎么自动排列窗口上的控件

如何自动排列窗口上的控件？
一个窗口上有15个按钮排成一排，现在每个按钮的visible是不定的，我加了一个ue_fresh事件，想在窗口打开以后根据每个按钮的visible重新排列按钮，以达到目的：让每个可见的按钮排在一起，不会出现中间断开的情况。该怎么写？
按钮的次序是一定的，不能搞乱了。
谢谢！

[解决办法]

VB code

integer li_Countinteger li_indexli_Count = UpperBound(window.Control[])For li_index = 1 to li_Countif parent.control[li_index].TypeOf() = CommandButton!thenif window.control[li_index].visible then window.control[li_index].move(xx,yy)xx=xx+window.control[li_index].width+10end ifend ifnext