Как в Visual Basic' e вывести объекты на передний план?

[deepslam]

Добрый вечер=)
Вот собственно вопросик:
Как программно вывести динамически подгружаемые объекты на передний план.
В ручную это делается нажатие правой кнопки мыши на контроле и выборе Bring To front. Вот.

Заранее спасиба!

[v000v]

Text1.ZOrder 0 'to top
Text1.ZOrder 1 ' to back

[Джеффи]

Text1.ZOrder 0 'to top
Text1.ZOrder 1 ' to back

Опередил меня

[deepslam]

Спасиба!!!
Блин а я парился - то ZOrder i то еще че нить...думал что там по слоям как нить.... ЛОЛ

[|kerish|]

Предлагаю лучший вариант:

Код: Выделить всё

Load text1(1)
text1(1).text = text1(0).text
text1(1).left = text1(0).left
text1(1).top = text1(0).top
text1(1).tag = text1(0).tag
text1(1).backcolor = text1(0).backcolor
text1(1).forecolor = text1(0).forecolor
text1(1).fontname = text1(0).fontname
text1(1).fontsize = text1(0).fontsize
text1(1).fontbold = text1(0).fontbold
text1(1).fontunderline = text1(0).fontunderline
text1(1).mouseicon = text1(0).mouseicon
text1(1).mousepointer = text1(0).mousepointer
unload text1(0)
text1(1).index = 0
text1(0).visible = true


Критика не принимается. Этот код - лучший.

[Amed]

Придётся принять.

Как минимум, до уровня

Код: Выделить всё

Load text1(1)
With text1(1)
.text = text1(0).text
.left = text1(0).left
.top = text1(0).top
.tag = text1(0).tag
.backcolor = text1(0).backcolor
.forecolor = text1(0).forecolor
.fontname = text1(0).fontname
.fontsize = text1(0).fontsize
.fontbold = text1(0).fontbold
.fontunderline = text1(0).fontunderline
.mouseicon = text1(0).mouseicon
.mousepointer = text1(0).mousepointer
unload text1(0)
.index = 0
text1(0).visible = true
End with