dim g_Left, g_Top
g_Left = 0
g_Top = 0
		
function PopMouseDown(e)
	
	g_Left = e.clientx
	g_Top = e.clienty
		
end function
		
function PopMouseMove(e)
		
	if g_Left < 1 or g_Top < 1 then exit function

	dim m_gap, m_Left, m_Top
	m_gap = g_Left - replace(document.all.item("PopPanel").style.left,"px","")
	m_Left =  e.clientx - m_gap
			
	m_gap = g_Top - replace(document.all.item("PopPanel").style.top,"px","")
	m_Top =  e.clienty - m_gap
			
	'¿ÞÂÊ°ú ¿À¸¥ÂÊ¿¡ ÀÚµ¿ ºÙ±â
	if m_Left < 1 then m_Left = -1
	if m_Top < 1 Then m_Top = 0
			
	document.all.item("PopPanel").style.left = m_Left & "px"
	document.all.item("PopPanel").style.top = m_Top & "px"
			
	g_Left = e.clientx
	g_Top = e.clienty
			
end function
		
function PopMouseUp(e)
	if g_Left < 1 or g_Top < 1 then exit function
		
	dim m_gap, m_Left, m_Top
	m_gap = g_Left - replace(document.all.item("PopPanel").style.left,"px","")
	m_Left =  e.clientx - m_gap
			
	m_gap = g_Top - replace(document.all.item("PopPanel").style.top,"px","")
	m_Top =  e.clienty - m_gap

	'¿ÞÂÊ°ú ¿À¸¥ÂÊ¿¡ ÀÚµ¿ ºÙ±â
	if m_Left < 1 then m_Left = -20
	if m_Top < 20 then m_Top = 0
			
	document.all.item("PopPanel").style.left = m_Left & "px"
	document.all.item("PopPanel").style.top = m_Top & "px"
			
	g_Left = 0
	g_Top = 0
		
end function