'Adrian Dunstan
'Example of how to call on forms as strings, change many forms at once
'Other uses: remove the if typename() statement to
'allow for all forms in project to be set with same properties
Option Explicit

Public Sub SetupForm(formCall as String)

Dim f1 As Form, i As Integer

on error goto CallFormErr

For i = 0 To Forms.Count - 1
    If TypeName(Forms(i)) = formCall Then
        Set f1 = Forms(i)
        'do what you want here
        f1.WindowState = 1
	f1.BackColor = vbRed
    End If
Next i

Exit Sub
CallFormErr:
MsgBox err.number & chr(13) & chr(10) & _
	err.description
End Sub