>>>Hello *.*
>>>
>>>I´d like to do the same full screen effect of F11 in internet explorer (press F11 to see) using VFP 6.
>>>
>>>Is it possible?
>>>
>>>Thanks in advance.
>>

>>On key label F11 do ShiftWindowState
>>
>>Procedure ShiftWindowState
>>  If thisform.WindowState= 0
>>    thisform.WindowState= 2
>>  Else
>>    thisform.WindowState= 0
>>  Endif
>>Endproc

>
>You can try this for a bit shorter code.
>
>

_screen.WindowState = BITXOR(_screen.WindowState,2)

Or

On key label F11 _screen.WindowState = IIF(_screen.WindowState=0,2,0)

But I prefereed to make it more readable. :-)