how decrease and increase size of textbox on userform by autosize

[Ali M]

Hello
I have textbox1 on userform .I want wen write inside the textbox then should increase & decrease textbox1 based on filling inside textbox
this what I have but doesn't work

Private Sub UserForm_Initialize()
    Set txtNew = Controls.Add("Forms.textbox1")
TextBox1.Left = 36
TextBox1.Top = 42
TextBox1.MultiLine = True
TextBox1.WordWrap = True
TextBox1.AutoSize = False
TextBox1.Width = 108
TextBox1.SetFocus
TextBox1.Height = 30
End Sub

before when write number

as you see first pictur contains empty after 00

should be like this just slight space in right and left not big space . like fit columns inside sheet

thanks guys

 

[igold]

Perhaps something like this...

Private Sub UserForm_Initialize()

    Dim txtnew As Control

    Set txtnew = Me.Controls.Add("Forms.textbox.1", "TextBox1")
    With Me.Controls("TextBox1")
        .Left = 36
        .Top = 42
        .MultiLine = False
        .WordWrap = True
        .AutoSize = True
        .Width = 108
        .SetFocus
        .Height = 30
    End With

End Sub

 

[Ali M]

really apologies for too delaying .!!!!
honestly I don't note it
your solution work greatly .
many thanks

 

[igold]

No problems. You're welcome, I was happy to help. Thanks for the feedback.