GetVisible inst_show4
    ;DEBUGVAR inst_show4

    If inst_show4 = 1 Then
        InstanceGetString SaveStringInst
        ;DEBUGVAR SaveStringInst
        If SaveStringInst = "RefreshNow" Then
            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
            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 = 4 Then
		If inst_show4 = 0 Then
			GetXMLFileNameCurrentRunning CurrentOpenFile4
			Open CurrentOpenFile4
			
		Else
			Var SlientRefreshIndex = 5
			
		EndIf
    EndIf

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

    If inst_show4 = 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 Inst7CountMenuEnable = 0
    Var Inst7CountCurrentMenuEnable = 0
    GetFrameScrollBlockCount Inst7CountCurrentMenuEnable
    GetCurrentEnableBlockCount Inst7CountMenuEnable
    
    If XMLMultiDebug = 1 Then
        DEBUGVAR Inst7CountMenuEnable
        DEBUGVAR Inst7CountMenuEnablePrev
        DEBUGVAR Inst7CountCurrentMenuEnable
    EndIf

    If Inst7CountMenuEnablePrev = "" Then
        Var Inst7CountMenuEnablePrev = Inst7CountMenuEnable
        Var Inst7CountDownForOpenXML = 0
        Var Inst7CountDownOpenXMLFromMenuZero = 20
    EndIf

    If Inst7CountMenuEnable = Inst7CountMenuEnablePrev Then

    Else
        SAVELOG "Inst7 Refresh ===================================================================== Refresh"
        Var Inst7CountDownForOpenXML = 10
        Var Inst7CountMenuEnablePrev = CountMenuEnable
    EndIf

    If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then

    Else
        If Inst7CountDownForOpenXML = 0 Then
            SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh"
            Var Inst7CountDownForOpenXML = 10
        EndIf
    EndIf
    

    If Inst7CountCurrentMenuEnable = 0 Then
        
        DEBUGVAR Inst7CountDownOpenXMLFromMenuZero

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

    If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
        If Inst7CountCurrentMenuEnable > 0 Then
            Var Inst7MenuLoaded = "done"  
        EndIf
    EndIf

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


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

    Var MilkRefreshTimeOut = MilkRefreshTimeOut + 1