>>42
Formsコレクションで、こういうのはよくやるね。

Dim objForm As Object

For Each objForm In Forms
If objForm.Name = strFormName Then
'処理
End If
Next objForm