' dies ist ein VB-Code.
i = 1
x = 1
Dim ctl As Control
For Each ctl In Me.Controls
m_Con_pos(x, i).m_Top = ctl.Top
m_Con_pos(x, i).m_Left = ctl.Left
m_Con_pos(x, i).m_Height = ctl.Height
m_Con_pos(x, i).m_Width = ctl.Width
m_Con_pos(x, i).m_Font_hoch = ctl.Font.Size
m_Con_pos(x, i).m_font_fett = ctl.Font.Bold
i = i + 1
Next