GetVisible inst_show3
    ;DEBUGVAR inst_show3

    

    If inst_show3 = 1 Then
        InstanceGetString SaveStringInst
        ;DEBUGVAR SaveStringInst
        If SaveStringInst = "RefreshNow" Then
            GetXMLFileNameCurrentRunning CurrentOpenFile
            Open CurrentOpenFile

            If show_eng = "true" Then 
                InstanceSetString "ShowEng"
            Else
                InstanceSetString "ShowThai"
            EndIf
       
        EndIf
		
    EndIf

    ; setvarint SlientRefreshEnable 1
    ;DEBUGVAR SlientRefreshEnable

    If SlientRefreshIndex = 3 Then
		If inst_show3 = 0 Then
			GetXMLFileNameCurrentRunning CurrentOpenFile3
			Open CurrentOpenFile3	
		Else
			Var SlientRefreshIndex = 4
			
		EndIf
    EndIf

    If langnext2 = "true" Then
        Var langnext2 = "false"
        RefreshAll
    EndIf

    If inst_show3 = 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 Inst6CountMenuEnable = 0
    Var Inst6CountCurrentMenuEnable = 0
    GetFrameScrollBlockCount Inst6CountCurrentMenuEnable
    GetCurrentEnableBlockCount Inst6CountMenuEnable
    
    If XMLMultiDebug = 1 Then
        DEBUGVAR Inst6CountMenuEnable
        DEBUGVAR Inst6CountMenuEnablePrev
        DEBUGVAR Inst6CountCurrentMenuEnable
    EndIf


    If Inst6CountMenuEnablePrev = "" Then
        Var Inst6CountMenuEnablePrev = Inst6CountMenuEnable
        Var Inst6CountDownForOpenXML = 0
        Var Inst6CountDownOpenXMLFromMenuZero = 20
    EndIf

    If Inst6CountMenuEnable = Inst6CountMenuEnablePrev Then

    Else
        SAVELOG "Inst6 Refresh ===================================================================== Refresh"
        Var Inst6CountDownForOpenXML = 10
        Var Inst6CountMenuEnablePrev = CountMenuEnable
    EndIf

    If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then

    Else
        If Inst6CountDownForOpenXML = 0 Then
            SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh"
            Var Inst6CountDownForOpenXML = 10
        EndIf
    EndIf

    If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
        If Inst6CountCurrentMenuEnable > 0 Then
            Var Inst6MenuLoaded = "done"  
        EndIf
    EndIf


    If Inst6CountCurrentMenuEnable = 0 Then
        
        DEBUGVAR Inst6CountDownOpenXMLFromMenuZero

        If Inst6CountDownOpenXMLFromMenuZero > 0 Then
            Var Inst6CountDownOpenXMLFromMenuZero = Inst6CountDownOpenXMLFromMenuZero - 1
            If Inst6CountDownOpenXMLFromMenuZero = 0 Then
                Var Inst6CountDownOpenXMLFromMenuZero = 20
                Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
            EndIf
        EndIf
    EndIf

    If Inst6CountDownForOpenXML > 0 Then
        Var Inst6CountDownForOpenXML = Inst6CountDownForOpenXML - 1
        DEBUGVAR Inst6CountDownForOpenXML
        If Inst6CountDownForOpenXML = 0 Then
            Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
        EndIf
    EndIf

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

    Var TeakRefreshTimeOut = TeakRefreshTimeOut + 1