CommonControls (Replacement of the MS common controls)

[Karl77]

GetTitleBarHeight

In Common.bas, there is the handy GetTitleBarHeight function.
I think there is something wrong.
It adds the frame 2x, while it should 1x only.

Select Case Form.BorderStyle
Case vbSizable, vbSizableToolWindow
CY = CY + (GetSystemMetrics(SM_CYSIZEFRAME) * 2)
Case vbFixedSingle, vbFixedDialog, vbFixedToolWindow
CY = CY + (GetSystemMetrics(SM_CYFIXEDFRAME) * 2)
End Select

At least to my measurements.