Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hDC As _
  Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal _
  wFormat As Long) As Long
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Public Function GetTextWidth(Text As String) As Long
    Const DT_CALCRECT = &H400
    Dim TextRect As RECT
    GetCharacterFormat = DrawText(Form1.hDC, Text, Len(Text), TextRect, _
      DT_CALCRECT)
    GetTextWidth = TextRect.Right - TextRect.Left
End Function
 
Private Sub Form_Load()
    Form1.ScaleMode = vbPixels
    Text1_Change
End Sub
 
Private Sub Text1_Change()
    Text1.Width = GetTextWidth(Text1.Text)
End Sub