' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Disabilita_beep_tasto_enter

''disable "enter" beep



$include "rapidq.inc"

$typecheck on

declare sub keydown(key as integer,shift as integer)



Create form as qform

                create Edit1 as QEdit

                               onkeydown=keydown

                               Left=6

                               Top=6

                end create

end create



form.showmodal



sub keydown(key as integer,shift as integer)

                if key=13 then KillMessage(edit1.Handle, &H102)

end sub



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb