Yes, another resizing question

[BJ]

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

[MartinLiss]

Just add an On Error Resume Next statement, or if you are worried that other errors might occur that you want to know about, use an Error GoTo ErrorRoutine statement, and code the ErrorRoutine something like this

ErrorRoutine:

    Select Case Err.Number
        Case 99
            Resume Next
    End Select

substituting whatever error number you are getting for the 99.

------------------
Marty

[BJ]

Thanks Again!

BJ