ResizeControl

Public Sub FitText(ControlName As Control, strCtlCaption As String)
Dim lngTextWidth As Long
lngTextWidth = ControlName.Parent.TextWidth(Trim(strCtlCaption))
ControlName.Width = lngTextWidth + 100
End Sub

' Esempio di chiamata alla procedura


Public Sub ResizeTextBoxesOnForm(formName As Form)
Dim curControl As Control
For Each curControl In formName
If TypeName(curControl) = "TextBox" Then
FitText curControl, curControl.Text
End If
Next
End Sub