Function OnlyThisChars( pChars )

    if instr(1, pChars, chr(window.event.keyCode)) = 0 then
        window.event.returnValue = false
    end if

End Function

Function OnlyThisCharsU( pChars )

    if instr(1, pChars, UCase(chr(window.event.keyCode))) = 0 then
        window.event.returnValue = false
    else
        window.event.keyCode = asc(ucase(chr(window.event.keyCode)))
    end if

End Function

Function OnlyThisCharsL( pChars )

    if instr(1, pChars, lCase(chr(window.event.keyCode))) = 0 then
        window.event.returnValue = false
    else
        window.event.keyCode = asc(lcase(chr(window.event.keyCode)))
    end if

End Function

Function UpperChars( )
	window.event.keyCode = asc(ucase(chr(window.event.keyCode)))
End Function

Function LowerChars( )
	window.event.keyCode = asc(ucase(chr(window.event.keyCode)))
End Function