Martin I took your advice and cleaned up my code. Actually what I am doing is resizing based on screen resolution. Here is the code I used from you.

If GetScreenResolution = "800x600" Then

Dim nIndex As Integer
For nIndex = 0 To Recipefilefrm.Controls.Count - 1

Recipefilefrm.Controls(nIndex).Height =(Recipefilefrm.Controls(nIndex).Height * 1.25)

recipefilefrm.controls(nIndex).width = (recipefilefrm.controls(nIndex).width * 1.25)

recipefilefrm.controls(nIndex).top = (recipefilefrm.controls(nIndex).top * 1.25)

recipefilefrm.controls(nIndex).left = (recipefilefrm.controls(nIndex).left * 1.25)

Next nIndex
End If

It works like a charm on any form that doesn't have a menu. But when I use it on my form with a menu, I get the message "Object doesn't support this". How can I resize everything this easy except for the menu?

Thanks
BJ