For example, you can run OpenSolver as follows:
Dim Result as OpenSolverResult
Result = RunOpenSolver(False, True) ' do not relax IP, do hide dialogs
Result will be one of the following: OpenSolverResult.ErrorOccurred, OpenSolverResult.Optimal, OpenSolverResult.Unbounded, OpenSolverResult.Infeasible, OpenSolverResult.TimeLimitedSubOptimal