>>>How to chk whether _Screen Or Form ?? All properties are same... How i can chk that passed object is screen or form ??
>>>
>>>TIA...
>>
>>

---

>>
>>Hey easy!
>>
>>make a new procedure file.
>>
>>* a.prg
>>Lparameter cObject
>>Wait Window NoWait iif(CompObj(_SCREEN, cObject), "What a pity, the system is going to crash now!! -_-", ;
>>"Form passed OK!")
>>
>>
>>if you pass the parameter like this:
>>
>>Do A.prg with NVL(.NULL., _SCREEN)
>>
>>it will crash after finish execution!
>>
>>SO, Simply Pass:
>>
>>Do A.prg With NVL(.NULL., varForm)
>>
>>It will crash the application if pass _SCREEN on value! ^_~
>>
>>Surely ppl don't pass _SCREEN as parameters.....
>>
>>ROFL! ^0^ Finish Joking!
>
>Thnks for your reply...
>
>Pls chk my gradient class in files section, where _screen is passed as a parameter to show gradient effect on screen.. If a form is passed as a parameter then it shows effect on form...
>
>Nowadays u never know what can be passed as a parameter !!

---

In one year ago, I wonder a serious problem accidientally!

It will be crash the VFP (both design time and run time ) on:

SelfdefinedProc(NVL(.NULL., _SCREEN))

but there is no crash for:

SelfdefinedProc(NVL(_SCREEN, .NULL.))
or
SelfdefinedProc(_SCREEN)

So, I said it is a joke on crashing the application! ;p

IT may be useful to make this terrible expire date on your application after you leave... ROFL!

---

I have download your gradient class in files section, it works very good!!

I want to make an animated change to both start and end color with timer!
Really make a advtermisment look! ^_~

Hey, any code for vertical gradient, maybe easy to change the word left to top, width to height...!?

^-^; Good Luck!