Автоматический размер CAPTION

У меня на форме текстовое поле обрамлено рамкой и в это поле каждый раз попадают слова разной длинны и если слово меньше половины рамки то выглядит это не очень красиво.

Как можно сделать чтобы размера поля менялся каждый раз под размер слов автоматический?!

использовать моноширинный шрифт
методом тыка - определить сколько твипов поля уходит на букву
ну и менять Width поля под Len значения поля

Пример с использованием WizHook. Походите по записям формы, поля меняют размер в зависимости от длины текста

mds_world,

У меня полностью не помещаются поля.
Последняя буква видна паполовину,или не видна наполовину.
Это что, зависит от какихто настроек винды?

я добавил твипов

Можно чуть-чуть переделать программу, добавив сотню твипов к ширине Внешний вид от этого только выиграет. Т.е. вместо ифа записать ctl.Width = n + 100. Или в целом

Private Sub Form_Current()
    Dim ctl As Control, i, j, m, n
    For Each ctl In Me.Controls
        If TypeName(ctl) = "textbox" Then
            n = WH_TwipsFromFont(Nz(ctl.value, ""), ctl.FontName, ctl.FontSize, _
            ctl.FontWeight, ctl.FontItalic, ctl.FontUnderline)
            ctl.Width = n + 100
        End If
        If Me.NewRecord Then ctl.Width = 1000
    Next
End Sub

Здесь также добавлена строка для новой записи с шириной полей в 1000 твипов

PWW,

WH_TwipsFromFont = wzdx + 50