GetVisible inst_show2
    ;DEBUGVAR inst_show2


    If inst_show2 = 1 Then
        InstanceGetString SaveStringInst
        ;DEBUGVAR SaveStringInst
        If SaveStringInst = "RefreshNow" Then
            SAVELOG "OPEN slient Refresh"
            GetXMLFileNameCurrentRunning CurrentOpenFile
            Open CurrentOpenFile

            If LanguageShow = "THAI" Then
				InstanceSetString "ShowThai"
			EndIf

            If LanguageShow = "ENG" Then 
                InstanceSetString "ShowEng"
            EndIf

            If LanguageShow = "MYANMAR" Then
				InstanceSetString "ShowMYANMAR"
			EndIf

            If LanguageShow = "MSC" Then 
                InstanceSetString "ShowMSC"
            EndIf
        EndIf
    EndIf

    ; setvarint SlientRefreshEnable 1
    ;DEBUGVAR SlientRefreshEnable

    If SlientRefreshEnable = 1 Then
        If SaveStringInst = "RefreshNow" Then
            SAVELOG "OPEN slient 2"
            GetXMLFileNameCurrentRunning CurrentOpenFile
            Open CurrentOpenFile

            If LanguageShow = "THAI" Then
				InstanceSetString "ShowThai"
			EndIf

            If LanguageShow = "ENG" Then 
                InstanceSetString "ShowEng"
            EndIf

            If LanguageShow = "MYANMAR" Then
				InstanceSetString "ShowMYANMAR"
			EndIf

            If LanguageShow = "MSC" Then 
                InstanceSetString "ShowMSC"
            EndIf

        EndIf
    EndIf

	 If SlientRefreshIndex = 2 Then
		If inst_show2 = 0 Then
            SAVELOG "OPEN slient 1"
			GetXMLFileNameCurrentRunning CurrentOpenFile2
			Open CurrentOpenFile2

		Else
			Var SlientRefreshIndex = 3
		EndIf
    EndIf

    If langnext1 = "true" Then
        DEBUGVAR langnext1
        Var langnext1 = "false"
        RefreshAll
    EndIf

     If inst_show2 = 1 Then
        

        InstanceGetString SaveStringInst
		If SaveStringInst = "RefreshNow" Then

		Else
			If LanguageShow = "ENG" Then
				Var SaveStringInst = "ShowEng"
			EndIf
			If LanguageShow = "THAI" Then
				Var SaveStringInst = "ShowThai"
			EndIf
			If LanguageShow = "MYANMAR" Then
				Var SaveStringInst = "ShowMYANMAR"
			EndIf
            If LanguageShow = "MSC" Then 
                Var SaveStringInst = "ShowMSC"
            EndIf
		EndIf
    EndIf





    Var Inst5CountMenuEnable = 0
    Var Inst5CountCurrentMenuEnable = 0
    GetFrameScrollBlockCount Inst5CountCurrentMenuEnable
    GetCurrentEnableBlockCount Inst5CountMenuEnable

    If XMLMultiDebug = 1 Then
        DEBUGVAR Inst5CountMenuEnable
        DEBUGVAR Inst5CountMenuEnablePrev
        DEBUGVAR Inst5CountCurrentMenuEnable
    EndIf

    If Inst5CountMenuEnablePrev = "" Then
        Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable
        Var Inst5CountDownForOpenXML = 0
        Var Inst5CountDownOpenXMLFromMenuZero = 20
    EndIf

    If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then

    Else
        SAVELOG "Inst5 Refresh ===================================================================== Refresh"
        Var Inst5CountDownForOpenXML = 10
        Var Inst5CountMenuEnablePrev = CountMenuEnable
    EndIf

    If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then

    Else
        If Inst5CountDownForOpenXML = 0 Then
            SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh"
            Var Inst5CountDownForOpenXML = 10
        EndIf
    EndIf

    If Inst5CountCurrentMenuEnable = 0 Then

        DEBUGVAR Inst5CountDownOpenXMLFromMenuZero

        If Inst5CountDownOpenXMLFromMenuZero > 0 Then
            Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1
            If Inst5CountDownOpenXMLFromMenuZero = 0 Then
                Var Inst5CountDownOpenXMLFromMenuZero = 20
                SAVELOG "OPEN FROM 1"
                Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
            EndIf
        EndIf
    EndIf

    If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
        If Inst5CountCurrentMenuEnable > 0 Then
            Var Inst5MenuLoaded = "done"
        EndIf
    EndIf

    If Inst5CountDownForOpenXML > 0 Then
        Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1
        DEBUGVAR Inst5CountDownForOpenXML
        If Inst5CountDownForOpenXML = 0 Then
            SAVELOG "OPEN FROM 2"
            Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
        EndIf
        InstanceGetString SaveStringInst
		If SaveStringInst = "RefreshNow" Then

		Else
			If LanguageShow = "ENG" Then
				Var SaveStringInst = "ShowEng"
			EndIf
			If LanguageShow = "THAI" Then
				Var SaveStringInst = "ShowThai"
			EndIf
			If LanguageShow = "MYANMAR" Then
				Var SaveStringInst = "ShowMYANMAR"
			EndIf
            If LanguageShow = "MSC" Then 
                Var SaveStringInst = "ShowMSC"
            EndIf
		EndIf
    EndIf

    ; setvarint RefreshCoffeeMenu 1
    If RefreshCoffeeMenu = 1 Then
        Var RefreshCoffeeMenu = 0
        SAVELOG "OPEN FROM 3"
        ;Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
        RefreshAll
    EndIf 

    ; setvarint ScriptCoffeeMenu 1
    If ScriptCoffeeMenu = 1 Then
        Var ScriptCoffeeMenu = 0
        SAVELOG "Runscript 3"
        Script "-" "-"
    EndIf

    If CoffeeRefreshTimeOut > 15 Then
        Var CoffeeRefreshTimeOut = 0
        Script "-" "-"
    EndIf

    Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1