GetVisible inst_show5
    ;DEBUGVAR inst_show5


    If inst_show5 = 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 = 5 Then
		If inst_show5 = 0 Then
			GetXMLFileNameCurrentRunning CurrentOpenFile5
			Open CurrentOpenFile5
		Else
			Var SlientRefreshIndex = 6
		EndIf
    EndIf

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

    If inst_show5 = 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 Inst8CountMenuEnable = 0
    Var Inst8CountCurrentMenuEnable = 0
    GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
    GetCurrentEnableBlockCount Inst8CountMenuEnable

    If XMLMultiDebug = 1 Then
        DEBUGVAR Inst8CountMenuEnable
        DEBUGVAR Inst8CountMenuEnablePrev
        DEBUGVAR Inst8CountCurrentMenuEnable
    EndIf

    If Inst8CountMenuEnablePrev = "" Then
        Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
        Var Inst8CountDownForOpenXML = 0
        Var Inst8CountDownOpenXMLFromMenuZero = 20
    EndIf

    If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then

    Else
        SAVELOG "Inst8 Refresh ===================================================================== Refresh"
        Var Inst8CountDownForOpenXML = 10
        Var Inst8CountMenuEnablePrev = CountMenuEnable
    EndIf

   If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then

    Else
        If Inst8CountDownForOpenXML = 0 Then
            SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh"
            Var Inst8CountDownForOpenXML = 10
        EndIf
    EndIf


    If Inst8CountCurrentMenuEnable = 0 Then

        DEBUGVAR Inst8CountDownOpenXMLFromMenuZero

        If Inst8CountDownOpenXMLFromMenuZero > 0 Then
            Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1
            If Inst8CountDownOpenXMLFromMenuZero = 0 Then
                Var Inst8CountDownOpenXMLFromMenuZero = 20
                ;Open CurrentXMLFileName8
            EndIf
        EndIf
    EndIf

    If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
        If Inst8CountCurrentMenuEnable > 0 Then
            Var Inst8MenuLoaded = "done"
        EndIf
    EndIf

    If Inst8CountDownForOpenXML > 0 Then
        Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
        DEBUGVAR Inst8CountDownForOpenXML
        If Inst8CountDownForOpenXML = 0 Then
            ;Open CurrentXMLFileName8
        EndIf
    EndIf


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

    Var ForKidRefreshTimeOut = ForKidRefreshTimeOut + 1