dim mode
dim EnglishMap

mode=1
EnglishMap=Array(1711,39,40,41,42,1608,44,45,46,48,49,50,51,52,53,54,55,56,57,47,1603,59,60,61,62,1567,1588,1584,1586,1610,1579,1576,1604,1570,1607,1578,1606,1605,1574,1583,1582,1581,1590,1602,1587,1601,85,1585,1589,1591,1594,1592,1580,1688,1670,94,95,1662,1588,1584,1586,1610,1579,1576,1604,1575,1607,1578,1606,1605,1574,1583,1582,1581,1590,1602,1587,1601,1593,1585,1589,1591,1594,1592)
' ---------------------------------------------------------------------------
Public sub PersianKeyPress()
    Dim key
    key = window.event.keyCode

	if mode = 1 then
		if key>38 and key<123 then	window.event.keyCode=EnglishMap(key-39)
		if key=1740 then window.event.keyCode=1610
	end if   
	window.event.returnValue= true
End sub