MakeCode

Private Sub Makecode()
On Error Resume Next
Dim i&, nimi$, index%, Eindex%
For i = 0 To Me.Controls.Count - 1
nimi = Me.Controls(i).Name
If Me.Controls(i).index < 0 Then
Debug.Print "'" + Me.Name + "." + Me.Controls(i).Name + " object placement:"
Debug.Print Me.Name + "." + nimi + ".Left=" + Trim$(Me.Controls(i).Left)
Debug.Print Me.Name + "." + nimi + ".top=" + Trim$(Me.Controls(i).Top)
Debug.Print Me.Name + "." + nimi + ".Height=" + Trim$(Me.Controls(i).Height)
Debug.Print Me.Name + "." + nimi + ".Width=" + Trim$(Me.Controls(i).Width)
Else
Debug.Print "'" + Me.Name + "." + Me.Controls(i).Name + "(" + Trim$(Me.Controls(i).index) + ") object placement:"
Debug.Print Me.Name + "." + nimi + "(" + Trim$(Me.Controls(i).index) + ").Left=" + Trim$(Me.Controls(i).Left)
Debug.Print Me.Name + "." + nimi + "(" + Trim$(Me.Controls(i).index) + ").top=" + Trim$(Me.Controls(i).Top)
Debug.Print Me.Name + "." + nimi + "(" + Trim$(Me.Controls(i).index) + ").Height=" + Trim$(Me.Controls(i).Height)
Debug.Print Me.Name + "." + nimi + "(" + Trim$(Me.Controls(i).index) + ").Width=" + Trim$(Me.Controls(i).Width)
End If
Next i
End Sub

Makes code which contains every objects palcements
on Form including control array members.
makes code for diferent layouts and resolutions,
code comes to debug window and make a fuction based on it.

To do:
Run this code on form level.
Make one screen desing, run it and get the code from
Immediate window, make other screen desing for other
resolution /font size and run it again.
Resoluton recon codes might be later available, but
mainly API GetSystemMetrics gives them.
remember to clear the debug window!