public static void OpenMdsForm(
	XRecordMap p_SrceRecMap,
	string p_ScenarioName
)

Public Shared Sub OpenMdsForm ( 
	p_SrceRecMap As XRecordMap,
	p_ScenarioName As String
)

Imports System
Imports System.Collections
Imports System.Text  '    for StringBuilder

Imports Biolomics.BioCallback
Imports Biolomics.SharedClasses
Imports Biolomics.Utility.databaseConstants

Public Class Program

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

    '    Write sub functions here
    Public Sub Test()
        '    get the current connection
        Dim SqlCo As XConnection = Run.GetCurrentConnection()
        If SqlCo Is Nothing Then
            Return
        End If

        '    get a table from its User name
        Dim TableDef As XTableDef = SqlCo.GetTableDefByUserNameEng("Your_Table_Name")
        If TableDef Is Nothing Then   '    may happen if that table doesn't exist
            Return
        End If

        '    load records #1 to #10 in the reference record map
        Dim RefRecMap As XRecordMap = Run.LoadRecords(TableDef.Key, Nothing, XWhere.GTE(StaticFields.id, 1).And_(StaticFields.id, XWhere.OperationEnum.LTE, 10))
        Console.WriteLine(RefRecMap.Count)
        '    open a Multidimensional scaling form recomputing the whole matrices
        Run.OpenMDSForm(RefRecMap, "Your_Scenario_Name")

    End Sub

End Class