The problem is when I look into this area of the code I see tWin has an issue whith this statement in bold below in that ioverload resolution failed because no accessible Item accepts this number of arguments. Can anyone help here as this portion of clean up from VB6 to VB.Net and looking at well over a max amount of errors when the programmer lead said oh this should be no problem.. it would have been more productive to have rewritten the code from scratch.
Code:
Public Sub SetFieldValue(ByVal prmControlName As String, ByVal prmControlValue As String, _
Optional ByVal prmPrefix As Boolean = True, Optional ByVal prmIndex As Integer = 0)
Dim objDoc As mshtml.HTMLDocument
On Error GoTo Errhandler
If prmPrefix Then
prmControlName = "txt" & prmControlName
End If
'Call Amisys_doEvents
If objDoc Is Nothing Then objDoc = mIEObj.Document
If objDoc.parentWindow.frames.length > 0 Then
Dim tWin As HtmlWindow
tWin = objDoc.parentWindow.frames.item(1)
tWin = tWin.Frames.Item(1)
tWin.
Dim oControlElem As HTMLInputElement
oControlElem = tWin.Document.All.Item(prmControlName, prmIndex) If Not oControlElem Is Nothing Then
oControlElem.value = prmControlValue
End If
tWin = Nothing
End If
mLibMessage = SUCCESS
SetAppTitle()
Exit Sub
Errhandler:
SetAppTitle()
mLibMessage = FAIL
End Sub