public static int OpenLayout(
	string p_LayoutName,
	XWhere p_Where
)

Public Shared Function OpenLayout ( 
	p_LayoutName As String,
	p_Where As XWhere
) As Integer

Imports System
Imports BioloMICS.BioCallback
Imports BioloMICS.SharedClasses
Imports BioloMICS.Utility.DatabaseConstants
Imports System.Collections

Public Class Program

    <STAThread()>
    Shared Sub Main()
        Dim program As New Program
        program.OpenLayout()

    End Sub

    Public Sub OpenLayout()
        'XWhere statement
        Dim where As XWhere = xwhere.Gte(StaticFields.id, 5)
        Run.OpenLayout("Deposit", where)
        DrawMessages()
    End Sub

    '    display all recent error messages
    Public Sub DrawMessages()
        Dim ErrorList As Generic.List(Of String) = Run.GetLastErrorMessage()
        For Each errorMsg As String In ErrorList
            Console.Write(vbcrlf & errorMsg)
        Next
    End Sub

End Class