いつもお世話になっております
上記タイトルについて質問させていただきます


VB6.0で、テキストボックスの幅をそのテキストボックス内のテキストの幅に
したいのですがうまくいきません

Text1.Width=Me.TextWidth(Text1.Text)では半分程度になり、

Text1.Widthの単位をTwip、TextWidthの単位をピクセルと考え
Text1.Width=Me.ScaleX(Me.TextWidth(Text1.Text),3,1)としましたがだめでした

変換後の値をTwip値に固定し各単位で試しましたがどれもうまくいきませんでした
モニタの設定は96dpiです
お分かりになる方がいらっしゃいましたらご教示よろしくお願いします

> VB6.0で、テキストボックスの幅をそのテキストボックス内のテキストの幅に
> したいのですがうまくいきません

Option Explicit

Private Sub Form_Load()
    'Label1.Visible = False
    Set Label1.Font = Text1.Font
    Label1.AutoSize = True
    Label1.BorderStyle = Text1.BorderStyle
    Label1.Caption = Text1.Text
End Sub

Private Sub Text1_Change()
    Label1.Caption = Text1.Text
End Sub

Private Sub Label1_Change()
    Dim margin As Single
    margin = Screen.TwipsPerPixelX * 4

    Text1.Width = Label1.Width + margin
End Sub

さっそくの返信ありがとうございます
ラベルを使用しない方法はないですか？
なければこの方法でがんばってみます

visible=falseにすればラベルも気にならないのでこれでいこうと思います
ありがとうございました