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 |