The code work very good, thany you Mr.johnwm for you help,
and I have cople of questions please:
1. Waht about passing the controls by type, I think I sould use some thing like this:
Dim Ctrl as Control
For Each Ctrl in Me.Controls
If Ctrl.Type=Lable Then Call Alignlbl(me,Ctrl,30)
Next
2...