Yoy're Welcome
>Hi Tore,
>
>Thanks!
>
>>Hi Koos,
>>
>>First you must add code in the load event to add properties to hold the default size of the form:
>>with this
>> .AddProperty('nStartWitdth',.width)
>> .AddProperty('nStartHeight',.height)
>>endwith
>>And you must put some code in the resize event of the form, something like this:
>>With This
>> Do Case
>> Case .Width<.nStartWitdth And .Height<.nStartheight
>> .ScrollBars=3
>> Case .Width<.nStartWitdth
>> .ScrollBars=1
>> Case .Height<.nStartheight
>> .ScrollBars=2
>> Otherwise
>> .ScrollBars=0
>> Endcase
>>Endwith
>>
>>When I tested it, I had to set the scrollbars to 3 in the property sheet to get it to work,
>>
>>
>>
>>
>>>Hello All,
>>>
>>>Does anybody know how to get a vertical scrollbar on a form (automatically) when the _screen is resized to a smaller size than the form?
>>>
>>>Thanks,
>>>
>>>
>>>koos Veel.