Userform Caption

[Jason Zischke]

Hi all,

I have a workbook where I have forms that have the caption removed however
it shows a litte bit more of the form at the bottom, is there a way to find
out the forms caption height to take it off of the forms height ?

Thanks in advance

Jason

[Vic Eldridge]

Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CYCAPTION = 4

Function CaptionHeight() As Long
CaptionHeight = GetSystemMetrics(SM_CYCAPTION)
End Function



Regards,
Vic Eldridge



"Jason Zischke" wrote:

> Hi all,
>
> I have a workbook where I have forms that have the caption removed however
> it shows a litte bit more of the form at the bottom, is there a way to find
> out the forms caption height to take it off of the forms height ?
>
> Thanks in advance
>
> Jason

[Michel Pierron]

Hi Jason,

Dim hCaption As Double
hCaption = Me.Height - Me.InsideHeight - ((Me.Width - Me.InsideWidth) / 2)

MP


"Jason Zischke" <[email protected]> a écrit dans le
message de news: [email protected]...
> Hi all,
>
> I have a workbook where I have forms that have the caption removed however
> it shows a litte bit more of the form at the bottom, is there a way to
> find
> out the forms caption height to take it off of the forms height ?
>
> Thanks in advance
>
> Jason