Thanks, but I had a look at these controls a long time ago and decided they
weren't worth the extra overhead.
I have downloaded and installed again and had a look if they suffer from the
same problem, that is that changing
the form caption makes the minimize and maximize buttons stop working.
Unfortunately it shows exactly the same problem.

RBS


"Ken Macksey" <KenMacksey@tnt21.com> wrote in message
news:O3zlQgBHFHA.2744@tk2msftngp13.phx.gbl...
> Hi
>
> Go here and get FlexmenuE and flexgrabberE. They are free controls that
> you can drop on your vba form and make it resizeable and add min and max
> buttons with no code.
> The newest version also lets you minimize and maximize your form with code
> if you wish to.
>
> http://www.vbusers.com/downloads/download.asp#item3\
>
> HTH
>
> Ken
>
> "RB Smissaert" <bartsmissaert@blueyonder.co.uk> wrote in message
> news:%23HpgJ3AHFHA.1392@TK2MSFTNGP10.phx.gbl...
>> How do I add minimize and maximize buttons to a VBA userform?
>> I have this code that does it, but when I change the caption of the
>> userform
>> the buttons don't work anymore. I am slowly coming to the conclusion that
>> it probably is not worth the trouble and that it is better to make your
>> own buttons.
>>
>> Public Declare Function FindWindow _
>> Lib "user32" Alias _
>> "FindWindowA" (ByVal lpClassName As Long, _
>> ByVal lpWindowName As Long)
>>
>> Private Declare Function SetWindowLong _
>> Lib "user32" _
>> Alias "SetWindowLongA" (ByVal hwnd As Long, _
>> ByVal nIndex As Long, _
>> ByVal dwNewLong As Long) As Long
>>
>> Private Sub UserForm_Initialize()
>>
>> Dim hWnd as Long
>>
>> hWnd = FindWindow(vbNullString, UserForm1.Caption)
>> SetWindowLong hWnd, -16, &H20000 Or &H10000 Or &H84C80080
>>
>> End Sub
>>
>>
>> RBS
>>
>
>