半角と全角不特定多数混ざっている文字列をimTextを使って表示しているのですが、
文字列の幅に合わせてほぼぴったりにimTextの幅を変えたいのですが、
良い方法ありませんか？

文字列の長さを知りたいのなら   Debug.Print Me.TextWidth("aiuあいう")　を
試して見て下さい。
但し、imText に使用しているフォントとFormのフォントは同じに設定して測って下さい。
又は、ダミーのLabel（AutoSize=True)で長さを測るという方法もあります

# imText と書かれても解らない場合があります。他社製のOCX等はその旨書くようにして
　下さい。今回の事例で TextBox と違はないのなら尚更紛らわしいので。

有難う御座いました。

Label.AutoSize = True
Label.Caption = imText.Text
imText3.Width = Label.Width + 60

文字列が
ああああ　様
いいい　様
という感じで、最後2文字が「　様」になっており、
imText.Textには最後まで入っているのに
Label.Widthは最後の文字まで分ではなかったので、
無理やり+60して合わしました。
このへん、何か良い処理ありましたら教えてください。

ではなかったので、
> 無理やり+60して合わしました。
> このへん、何か良い処理ありましたら教えてください。

テキストボックスが 3D のための枠の部分かと思います。
Label1.BorderStyle = 1 で測定して見てください。

テキストボックスとラベルは同じ条件で測定して下さい。

> テキストボックスが 3D のための枠の部分かと思います。
> Label1.BorderStyle = 1 で測定して見てください。
>
> テキストボックスとラベルは同じ条件で測定して下さい。
出来ました。
有難う御座います。