Userform Caption

[Guest]

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

 

[Guest]

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

 

[Michel Pierron]

Hi Jason,

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

MP