dim KeySets(4)
dim i
sub ICROKeyPressEn()
    dim key
    key=window.event.keyCode

	window.status=key
      select case key
        case 1570     : window.event.keyCode =  asc("H")
        case 1575     : window.event.keyCode =  asc("h")
        
        case 1576	  : window.event.keyCode =  asc("f")
        case 1617	  :window.event.keyCode =  asc("F")
        
        case 1662     : window.event.keyCode =  asc("`")
        
        case 1600     : window.event.keyCode =  asc("J")
        case 1578     : window.event.keyCode =  asc("j")
        
        case 1613     : window.event.keyCode =  asc("E")
        case 1579	  : window.event.keyCode =  asc("e")
        
        case 1580     : window.event.keyCode =  asc("[")
        case 1670     : window.event.keyCode =  asc("]")
        
        case 1581	  : window.event.keyCode =  asc("p")
        case 247	  : window.event.keyCode =  asc("P")
		
		case 215      : window.event.keyCode =  asc("O")        
        case 1582     : window.event.keyCode =  asc("o")
        
        case 1571     : window.event.keyCode =  asc("N")
        case 1583     : window.event.keyCode =  asc("n")
        
        case 1573     : window.event.keyCode =  asc("B")
        case 1584     : window.event.keyCode =  asc("b")
        
        case 1740     : window.event.keyCode =  asc("V")
        case 1585     : window.event.keyCode =  asc("v")
        
        case 1586	  : window.event.keyCode =  asc("c")
        case 8205	  : window.event.keyCode =  asc("C")
        
        case 1688     : window.event.keyCode =  asc("\")
        
        case 1587	  : window.event.keyCode =  asc("s")
        case 1615     : window.event.keyCode =  asc("S")
        
        case 1588 : window.event.keyCode =  asc("a")
        case 1614 : window.event.keyCode =  asc("A")

        case 1589 : window.event.keyCode =  asc("w")
        case 1612 : window.event.keyCode =  asc("W")
        
        case 1590 : window.event.keyCode =  asc("q")
        case 1611 : window.event.keyCode =  asc("Q")

       
        case 1591 : window.event.keyCode =  asc("x")
        case 91   : window.event.keyCode =  asc("X")

        case 1592 : window.event.keyCode =  asc("z")
        case 93	  : window.event.keyCode =  asc("Z")
        
        case 1593 : window.event.keyCode =  asc("u")
        case 92	  : window.event.keyCode =  asc("U")
        
        case 1594 : window.event.keyCode =  asc("y")
        case 1563 : window.event.keyCode =  asc("Y")
        
        case 1601 : window.event.keyCode =  asc("t")
        case 1548 : window.event.keyCode =  asc("T")
        
        case 1602 : window.event.keyCode =  asc("r")
             
        case 1603 : window.event.keyCode =  asc(";")

        case 1711 : window.event.keyCode =  asc("'")

        case 1604 : window.event.keyCode =  asc("g")
        case 1618 : window.event.keyCode =  asc("G")

        case 1605 : window.event.keyCode =  asc("l")
        case 171 : window.event.keyCode =  asc("L")
        
        case 187 : window.event.keyCode =  asc("K")
        case 1606 : window.event.keyCode =  asc("k")

        case 1608 : window.event.keyCode =  asc(",")
        
        case 1577 : window.event.keyCode =  asc("I")
        case 1607 : window.event.keyCode =  asc("i")

		case 1610 : window.event.keyCode =  asc("d")
		
        case 1616 : window.event.keyCode =  asc("D")

        case 1574 : window.event.keyCode =  asc("m")
        case 1569 : window.event.keyCode =  asc("M")
        
        case 1567 : window.event.keyCode =  asc("?")
        
        case 1572 : window.event.keyCode =  asc("<")
        case 1728 : window.event.keyCode =  asc(">")
        
      end select
    window.event.returnValue=TRUE
  end sub