Visual Basic

Do you want to know more?

Not getting the response you want from a question asked in an online forum: How to Ask Questions the Smart Way!

Imports Microsoft.VisualBasic

Function SetUpLine() as boolean<br />
 Dim Ret as Object<br />
       Dim Ret2() As App.LineEntry<br />
 Dim iRet as integer<br />
 Ret = App.SetLine(Entry)<br />
 ''// POPULATE RETURN ENTRY ERRORS...<br />
 Try<br />
    Ret2 = CType(Ret, App.LineEntry())<br />
 Catch<br />
    Try<br />
   iRet = CType(Ret, Integer)<br />
  Catch<br />
  ''// BOOM<br />
  End Try<br />
 End Try<br />
     end function

Public Function SetLine(ByVal EntryArray() As LineEntry, ByRef LineError() As LineEntry) As Boolean
    LineError = uVal.CheckLineEntry(EntryArray)
    If LineError ...  whatever you use to check if LineError has anything in it... Then
        ' SUCCESS
        Return True
    Else
        ' FAILURE
        Return False
    End If
End Function