窗体布局：
控件：timer1 屬性设置：timer1.interval=1
代码：
dim k as integer
private sub timer1_timer()
k = k + 20
line (me.width / 2, me.height / 2)-(0, k), rgb(0, 0, abs(255 - k / 24))
line (me.width / 2, me.height / 2)-(k, 0), rgb(0, 0, abs(255 - k / 24))
line (me.width / 2, me.height / 2)-(k, 0), rgb(0, 0, abs(255 - k / 24))
line (me.width / 2, me.height / 2)-(me.width, k), rgb(0, 0, abs(255 - k / 24))
line (me.width / 2, me.height / 2)-(me.width, k), rgb(0, 0, abs(255 - (me.height - k) / 24))
line (me.width / 2, me.height / 2)-(k, me.height), rgb(0, 0, abs(255 - k / 24))
line (me.width / 2, me.height / 2)-(k, me.height), rgb(0, 0, abs(255 - k / 24))
line (me.width / 2, me.height / 2)-(0, k), rgb(0, 0, abs(255 - (me.height - k) / 24))
if k > 12500 then
timer1.enabled = false
end if
end sub
