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

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