Minimize forms using code 1

[dvannoy]

I have a form that could be opened up by multipule forms.
I tryed using the following code and I keep getting Type Mismatch...

Dim f As Form

For Each f In frmain
If TypeOf f Is Form Then
f.WindowState = 1
End If
Next

Thanks

 

[CajunCenturion]

The Forms collection is not a member of any individual form, but rather is a member of the Application. I would suggest trying the following:


Dim f As Form

For Each f In Forms
f.WindowState = 1
Next

This will minimize all forms, so you may want to place some conditional on that such as

if f.Name = &quot;<formname>&quot; then
f.windowstate = 1
endif

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[Jon4747]

Hi,
Just a guess

Dim f as Control

Jon