udf for ie

Func _IEFormElementGetObjByValue($object_lw,$text_lw)
 If Not IsObj($object_lw) Then
  SetError(1)
  Return 0
 EndIf
 SetError(0)
 If $object_lw.length >0 Then
  For $i=0 To $object_lw.length-1
  If $oForm.item($i).value=$text_lw  Then Return $oForm.item($i)
  Next
 EndIf
 Return 0
EndFunc