Dim I as Object
For each i in Controls
if i.parent is Picture1 then
set picture1.font = i.font
picture1.currentx = i.left
picture1.currenty = i.top
select case typeof(i) 'kann falsch sein!
case "textbox"
picture1.print i.text
' --- Vielleicht Textfelder einrahmen?
picture1.line (i.left, i.top) - (i.left + i.width, i.top + i.height)
case "label"
picture1.print i.caption
end select
end if
Next i

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!