sub window_Onload()
		document.all.myframe.src = "back.html"						
		pos()
	End sub		
	
	Function pos()
	if document.body.clientwidth = 780 Then
		pbnr.style.left = 0
		pbnr.style.top = 0
		banner.style.width = 770
		home.style.left = 200
		home.style.top = 140		
		moff.style.left = 250
		moff.style.top = 140		
		pbanr.style.left = 350
		pbanr.style.top = 140		
		edu_tra.style.left = 406
		edu_tra.style.top = 140		
		depaf.style.left = 540
		depaf.style.top = 140		
		contact.style.left = 673
		contact.style.top = 140	
		submenu.style.top = 161
		mydiv.style.top = 197
		mytable.style.top = 220	
		footer.style.top = 518
	End if		
	End Function
	
	sub window_Onresize()
		fixed.style.left = 20
		pos()	
	End sub

	sub td1_Onmouseover()
	if mydiv.innerText = space(4) & "Contact" Then
		td1.className = "tdbg"
	Else
		td1.className = "tdovr"
	End if
	End sub	
	
	sub td1_Onmouseout()
		td1.className = "tdbg"
	End sub
	
	sub td1_Onclick()		
	if mydiv.innerText = space(4) & "Ministry Office"  Then
		document.all.myframe.src = "a1.htm"		
		document.all.myframe.style.height = 395
	Elseif mydiv.innerText = space(4) & "PBANRD" Then
		document.all.myframe.src = "border_area_of_myanmar.htm"
		document.all.myframe.style.height = 480
	Elseif mydiv.innerText = space(4) & "Development Affairs" Then
		document.all.myframe.src = "c1.htm"
		document.all.myframe.style.height = 500
	Elseif mydiv.innerText = space(4) & "Education & Training" Then
		document.all.myframe.src = "d1.htm"
		document.all.myframe.style.height = 2000
	Elseif mydiv.innerText = space(4) & "Contact" Then
		'document.all.myframe.src = ""
	End if
	End sub
	
	sub td2_Onmouseover()
	if mydiv.innerText = space(4) & "Contact" Then
		td2.className = "tdbg"
	Else
		td2.className = "tdovr"
	End if
	End sub		
	
	sub td2_Onmouseout()
		td2.className = "tdbg"
	End sub
	
	sub td2_Onclick()		
	if mydiv.innerText = space(4) & "Ministry Office"  Then
		document.all.myframe.src = "a2.htm"
		document.all.myframe.style.height = 800
	Elseif mydiv.innerText = space(4) & "PBANRD" Then
		document.all.myframe.src = "b1.htm"
		document.all.myframe.style.height = 480
	Elseif mydiv.innerText = space(4) & "Development Affairs" Then
		document.all.myframe.src = "c2.htm"
		document.all.myframe.style.height = 420
	Elseif mydiv.innerText = space(4) & "Education & Training" Then
		document.all.myframe.src = "d2.htm"
		document.all.myframe.style.height = 1200
	Elseif mydiv.innerText = space(4) & "Contact" Then
		'document.all.myframe.src = ""
	End if
	End sub
	
	sub td3_Onmouseover()
	if td3.innerText = "" Then
		td3.className = "tdbg"
	else
		td3.className = "tdovr"
	End if
	End sub		
	
	sub td3_Onmouseout()	
		td3.className = "tdbg"	
	End sub
	
	sub td3_Onclick()			
	
	if mydiv.innerText = space(4) & "PBANRD" Then
		document.all.myframe.src = "b2.htm"
		document.all.myframe.style.height = 400
	Elseif mydiv.innerText = space(4) & "Development Affairs" Then				
		document.all.myframe.src = "organization_chat.htm"		
		document.all.myframe.style.height = 620
	Elseif mydiv.innerText = space(4) & "Education & Training" Then
		document.all.myframe.src = "d3.htm"
		document.all.myframe.style.height = 900
	Elseif mydiv.innerText = space(4) & "Contact" Then
		'document.all.myframe.src = ""
	End if
	End sub
	
	sub td4_Onmouseover()
	if td4.innerText = "" Then
		td4.className = "tdbg"
	else
		td4.className = "tdovr"
	End if
	End sub		
	
	sub td4_Onmouseout()
		td4.className = "tdbg"
	End sub
	
	sub td4_Onclick()		
	
	if mydiv.innerText = space(4) & "PBANRD" Then
		document.all.myframe.src = "b3.htm"
		document.all.myframe.style.height = 700
	Elseif mydiv.innerText = space(4) & "Development Affairs" Then
		document.all.myframe.src = "c3.htm"
		document.all.myframe.style.height = 730
	Elseif mydiv.innerText = space(4) & "Education & Training" Then
		document.all.myframe.src = "d4.htm"
		document.all.myframe.style.height = 780
	Elseif mydiv.innerText = space(4) & "Contact" Then
		'document.all.myframe.src = ""
	End if
	End sub
	
	sub td5_Onmouseover()
	if mydiv.innerText = space(4) & "Education & Training" Then
		td5.className = "photoovr"
	elseif mydiv.innerText = space(4) & "Contact" Then
		td5.className = "tdbg"
	elseif mydiv.innerText = space(4) & "Ministry Office" Then	
		td5.className = "tdbg"
	else
		td5.className = "tdovr"
	end if
	End sub		
	
	sub td5_Onmouseout()
	if mydiv.innerText = space(4) & "Education & Training" Then
		td5.className = "photo"
	else
		td5.className = "tdbg"
	End if
	End sub
	
	sub td5_Onclick()			
	if mydiv.innerText = space(4) & "PBANRD" Then
		document.all.myframe.src = "b4.htm"
		document.all.myframe.style.height = 800
	Elseif mydiv.innerText = space(4) & "Development Affairs" Then
		document.all.myframe.src = "c7.htm"
		document.all.myframe.style.height = 800
	Elseif mydiv.innerText = space(4) & "Education & Training" Then
		'document.all.myframe.src = "E&TGallery\index.htm"
		document.all.myframe.src = "E&TGallery\photo_Gallary.htm"
		document.all.myframe.style.height = 400
	Elseif mydiv.innerText = space(4) & "Contact" Then
		'document.all.myframe.src = ""
	End if
	End sub
	
	sub td6_Onmouseover()
	if td6.innerText = "" Then
		td6.className = "tdbg"
	else
		td6.className = "tdovr"
	end if
	End sub		
	
	sub td6_Onmouseout()
		td6.className = "tdbg"
	End sub
	
	sub td6_Onclick()			
	if mydiv.innerText = space(4) & "PBANRD" Then
		document.all.myframe.src = "b5.htm"
		document.all.myframe.style.height = 1850
	Elseif mydiv.innerText = space(4) & "Development Affairs" Then
		document.all.myframe.src = "c8.htm"
		document.all.myframe.style.height = 780
	Elseif mydiv.innerText = space(4) & "Education & Training" Then
		document.all.myframe.src = ""
	Elseif mydiv.innerText = space(4) & "Contact" Then
		'document.all.myframe.src = ""
	End if
	End sub
	
	sub td7_Onmouseover()
	if mydiv.innerText = space(4) & "Development Affairs" Then
		td7.className = "tdovr"
	elseif mydiv.innerText = space(4) & "Contact" Then
		td7.className = "tdbg"
	elseif mydiv.innerText = space(4) & "Ministry Office" Then	
		td7.className = "tdbg"
	elseif mydiv.innerText = space(4) & "Education & Training" Then	
		td7.className = "tdbg"
	else
		td7.className = "tdovr"
	end if
	End sub		
	
	sub td7_Onmouseout()	
	td7.className = "tdbg"	
	End sub
	
	sub td7_Onclick()			
	if mydiv.innerText = space(4) & "PBANRD" Then
		document.all.myframe.src = "b6.htm"	
		document.all.myframe.style.height = 2050
	Elseif mydiv.innerText = space(4) & "Development Affairs" Then
		document.all.myframe.src = "c4.htm"	
		document.all.myframe.style.height = 940
	End if
	End sub
	
	sub td8_Onmouseover()
	if td8.innerText = "" Then
		td8.className = "tdbg"
	else
		td8.className = "tdovr"
	end if
	End sub		
	
	sub td8_Onmouseout()
		td8.className = "tdbg"
	End sub
	
	sub td8_Onclick()			
	if mydiv.innerText = space(4) & "PBANRD" Then
		document.all.myframe.src = "b7.htm"	
		document.all.myframe.style.height = 900
	Elseif mydiv.innerText = space(4) & "Development Affairs" Then
		document.all.myframe.src = "c5.htm"	
		document.all.myframe.style.height = 1050
	End if
	End sub
	
	sub td9_Onmouseover()	
	if mydiv.innerText = space(4) & "PBANRD" Then
		td9.className = "tdovr"	
	Elseif mydiv.innerText = space(4) & "Development Affairs" Then
		td9.className = "tdovr"	
	else
		td9.className = "tdbg"
	End if
	
	End sub		
	
	sub td9_Onmouseout()
	
	if mydiv.innerText = space(4) & "PBANRD" Then
		td9.className = "tdbg"	
	Elseif mydiv.innerText = space(4) & "Development Affairs" Then
		td9.className = "tdbg"	
	else
		td9.className = "tdbg"
	End if		
	End sub	
	
	sub td9_Onclick()
	if mydiv.innerText = space(4) & "PBANRD" then		
		document.all.myframe.src = "b8.htm"
		document.all.myframe.style.height = 1200
	Elseif mydiv.innerText = space(4) & "Development Affairs" Then
		document.all.myframe.src = "c6.htm"
		document.all.myframe.style.height = 1000
	End if
	End sub
	
	sub td10_Onmouseover()
	
	if mydiv.innerText = space(4) & "Development Affairs" Then
		td10.className = "photoovr"	
	elseif mydiv.innerText = space(4) & "PBANRD" Then
		td10.className = "photoovr"	
	else
		td10.className = "tdbg"
	End if
	End sub
	
	sub td10_Onmouseout()
	if mydiv.innerText = space(4) & "Development Affairs" Then
		td10.className = "photo"	
	elseif mydiv.innerText = space(4) & "PBANRD" Then
		td10.className = "photo"	
	else
		td10.className = "tdbg"
	End if
	End sub
	
	sub td10_Onclick()	
	if mydiv.innerText = space(4) & "Development Affairs" Then
		'document.all.myframe.src = "DFGallery\index.htm"
		document.all.myframe.src = "DFGallery\photo_Gallary.htm"
		document.all.myframe.style.height = 400
	elseif mydiv.innerText = space(4) & "PBANRD" Then
		'document.all.myframe.src = "pbnrGallery\index.htm"
		document.all.myframe.src = "pbnrGallery\photo_Gallary.htm"
		document.all.myframe.style.height = 400
	End if
	End sub
	
	sub moff_onmouseover()
		moff.className = "divovr"
	End sub
	
	sub moff_onmouseout()
		moff.className = ""
	End sub
	
	sub moff_Onclick()
		document.all.myframe.src = "a1.htm"
		document.all.myframe.style.height = 395
		mydiv.innerText = space(4) & "Ministry Office" 
		td1.innerText = space(6) & ":. Establishment"
		td2.innerText = space(6) & ":. Reorganization"
		td3.innerText = ""		
		td4.innerText = ""
		td5.innerText = ""
		td6.innerText = ""
		td7.innerText = ""
		td8.innerText = ""
		td7.className = "tdbg"
		td9.className = "tdbg"
		td9.innerText = ""
		td5.className = "tdbg"
		td10.innerText=""
		td10.className = "tdbg"
		scr2.className= "h"
		scr1.className = "v"
		scr3.className = "h"
		scr4.className = "h"
	End sub
	
	sub pbanr_onmouseover()
		pbanr.className = "divovr"
	End sub
	
	sub pbanr_onmouseout()
		pbanr.className = ""
	End sub
	
	sub pbanr_Onclick()
		document.all.myframe.src = "border_area_of_myanmar.htm"
		document.all.myframe.style.height = 480
		mydiv.innerText = space(4) & "PBANRD"
		td1.innerText = space(6) & ":. Border area of Myanmar"
		td2.innerText = space(6) & ":. Objectives & Strategies"
		td3.innerText = space(6) & ":. Ministry and Department"
		td4.innerText = space(6) & ":. Management Structure"
		td5.innerText = space(6) & ":. Implemented Regions"
		td6.innerText = space(6) & ":. Development of border areas"
		td7.innerText = space(6) & ":. International Organizations"
		td8.innerText = space(6) & ":. Master Plan"
		td9.innerText = space(6) & ":. National Races Village"
		td3.className = "tdbg"
		td7.className = "tdbg"
		td10.className = "photo"
		td10.innerText = space(6) & ":. Photo Gallery"
		td5.className = "tdbg"				
		scr2.className= "h"
		scr1.className = "h"
		scr3.className = "v"
		scr4.className = "h"
	End sub
	
	sub depaf_onmouseover()
		depaf.className = "divovr"
	End sub
	
	sub depaf_onmouseout()
		depaf.className = ""
	End sub
	
	sub depaf_Onclick()
		document.all.myframe.src = "c1.htm"
		document.all.myframe.style.height = 500
		mydiv.innerText = space(4) & "Development Affairs"
		td1.innerText = space(6) & ":. Background History"
		td2.innerText = space(6) & ":. Development Committees Law"
		td3.innerText = space(6) & ":. Organization Chat"		
		td4.innerText = space(6) & ":. Duties and Functions"
		td5.innerText = space(6) & ":. Tidying works"
		td6.innerText = space(6) & ":. Town water Supply"
		td7.innerText = space(6) & ":. Safe Drinking Water Supply"
		td8.innerText = space(6) & ":. Road and bridge construction"
		td9.innerText = space(6) & ":. Rural Housings"		
		td10.className = "photo"
		td10.innerText = space(6) & ":. Photo Gallery"
		'scr.innerText = "Towns And Village to Develop and Modernize speedly"		
		scr2.className= "v"
		scr1.className = "h"
		scr3.className = "h"
		scr4.className = "h"
		td3.className = "tdbg"
		td5.className = "tdbg"
	End sub
	
	sub edu_tra_onmouseover()
		edu_tra.className = "divovr"
	End sub
	
	sub edu_tra_onmouseout()
		edu_tra.className = ""
	End sub
	
	sub edu_tra_Onclick()
		document.all.myframe.src = "d1.htm"
		document.all.myframe.style.height = 1900
		mydiv.innerText = space(4) & "Education & Training"
		td1.innerText = space(6) & ":. Establishment"
		td2.innerText = space(6) & ":. Nationalities degree colleges"
		td3.innerText = space(6) & ":. Training schools for border"
		td4.innerText = space(6) & ":. Vocational training schools"
		td5.innerText = space(6) & ":. Photo Gallery"
		td5.className = "photo"
		td9.className = "tdbg"
		td9.innerText = ""
		td7.className = "tdbg"
		td6.innerText = ""
		td7.innerText = ""
		td8.innerText = ""
		td10.innerText=""
		td10.className = "tdbg"
		scr2.className= "h"
		scr1.className = "h"
		scr3.className = "h"
		scr4.className = "v"
	End sub
	
	sub contact_onmouseover()
		contact.className = "divovr"
	End sub
	
	sub contact_onmouseout()
		contact.className = ""
	End sub
	
	sub contact_Onclick()
		document.all.myframe.src = "contact.htm"
		document.all.myframe.style.height = 680
		mydiv.innerText = space(4) & "Contact"
		td1.innerText = ""
		td2.innerText = ""
		td3.innerText = ""
		td4.innerText = ""
		td5.innerText = ""
		td5.className = "tdbg"
		td9.className = "tdbg"
		td9.innerText = ""
		td7.className = "tdbg"
		td6.innerText = ""
		td7.innerText = ""
		td8.innerText = ""
		td10.innerText = ""
		td10.className = "tdbg"
	end sub
	
	sub home_onmouseover()
		home.className = "divovr"
	End sub
	
	sub home_onmouseout()
		home.className = ""
	End sub
	
	sub home_OnClick()
		document.location.href = "Main.htm"
	End sub