Function GetFormByNumber(document As MSHTML.IHTMLDocument2, formNumber As _
  Integer) As MSHTML.IHTMLFormElement
Dim result As MSHTML.IHTMLFormElement
Dim forms As MSHTML.IHTMLElementCollection
  Set forms = document.forms
  If formNumber < forms.length Then
    result = forms.Item(formNumber, "") 'hier wird aber immer noch gemekert
  Else
    result = nothing
  End If
GetFormByNumber = result
End Function

___________________________________________________________________

[u]http://www.su.am