move textboxs in a report By code

[alwazeer]

Hi Every one

I have a report containing text boxes I want to be moved by the code as shown in the example
I use the traditional method
Is there another way?
Her what i do

Private Sub Report_Open(Cancel As Integer)
Dim xx
xx = 1440
Dim wd
wd = 0.22 * xx


Dim i
For i = 1 To 24
Me("a" & i).Width = wd
Next i
'=====================

Me.a24.Left = FrstM.Left
Me.a23.Left = a24.Left + wd
Me.a22.Left = a23.Left + wd
Me.a21.Left = a22.Left + wd
Me.a20.Left = a21.Left + wd
Me.a19.Left = a20.Left + wd
Me.a18.Left = a19.Left + wd
Me.a17.Left = a18.Left + wd
Me.a16.Left = a17.Left + wd
Me.a15.Left = a16.Left + wd
Me.a14.Left = a15.Left + wd
Me.a13.Left = a14.Left + wd
Me.a12.Left = a13.Left + wd
Me.a11.Left = a12.Left + wd
Me.a10.Left = a11.Left + wd
Me.a9.Left = a10.Left + wd
Me.a8.Left = a9.Left + wd
Me.a7.Left = a8.Left + wd
Me.a6.Left = a7.Left + wd
Me.a5.Left = a6.Left + wd
Me.a4.Left = a5.Left + wd
Me.a3.Left = a4.Left + wd
Me.a2.Left = a3.Left + wd
Me.a1.Left = a2.Left + wd
End Sub

Thanks