Индекс формы

[Tany]

Всем здравствуйте!
Подскажите, пожалуйста, как узнать индекс формы не перечисляя все формы из коллекции Forms, как это сделано в седующем примере:
For i = 0 To Forms.Count - 1
If Forms(i).Name = Me.Name Then MsgBox i
Next i

Заранее всем большое спасибо!

[RayShade]

Я так думаю, что никак.

[Tany]

Очень жаль
А можно тогда еще один вопрос?
У меня в модуле имеется процедура, которая изменяет размеры формы.
например:
Public Sub ChangeSizeForm (FormName as Form)
FormName.Width=FormName.Width / 2
End Sub

И вызов этой процедурки
ChangeSizeForm (frmMain)

где frmMain имя формы.
Но выдается ошибка- Type mismatch, при вызове процедуры.

Каким мне образом тогда передать форму в процедуру?

Спасибо за ответ!

[GSerg]

Скобки убери.

[Tany]

И правда! А я мучаюсь, думаю что такое!
Спасибо большое!