Высота - Длинна текста внутри Элемента Управления в твипах

' Аргумент: Ctrl As Control
Dim sCtrlText$, lx As Long, ly As Long

' Ширина и высота текста контрола в твипах (lx, ly)
    WizHook.Key = 51488399 ' Initialize WizHook
    WizHook.TwipsFromFont Ctrl.FontName, Ctrl.FontSize, Ctrl.FontWeight, _
                          Ctrl.FontItalic, Ctrl.FontUnderline, 0, sCtrlText, 0, lx, ly

Функция:

Public Function WizHook_TwipsFromFont(Ctrl As Control, Optional blnRetWidth As Boolean = False) As Long
' LE 17.02.24 v004
' Ширина или высота текста контрола в твипах - Width or height of control text in tweeps
' -------------------------------------------------------------------------------------------------/
Dim sCtrlText$, lx As Long, ly As Long

    Select Case Ctrl.ControlType
        Case acLabel:   sCtrlText = Ctrl.Caption
        Case acTextBox: sCtrlText = Ctrl.Text
        Case Else:      Exit Function
    End Select
    
    WizHook.Key = 51488399 ' Initialize WizHook
    WizHook.TwipsFromFont Ctrl.FontName, Ctrl.FontSize, Ctrl.FontWeight, _
                          Ctrl.FontItalic, Ctrl.FontUnderline, 0, sCtrlText, 0, lx, ly
    
    If blnRetWidth Then
        WizHook_TwipsFromFont = lx
    Else
        WizHook_TwipsFromFont = ly
    End If
End Function