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

' Vai_ad_un_sito_web

''goto website

DECLARE SUB goTosite CREATE Form AS QFORM

                CREATE Send AS QBUTTON

                               caption="Goto"

                               OnClick = goTosite

                END CREATE

                ShowModal

END CREATE



SUB goTosite

                dummy = SHELL("start http://yahoo.com",0)

END SUB



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