'NG.:03.04.03
Private Sub Command1_Click()
    Dim mWidth      As Integer
    Dim mLen        As Integer
 
    mLen = Len(Text1.Text)
    Debug.Print mLen
 
    mWidth = Me.TextWidth("A")
    Debug.Print mWidth
    Text1.Width = (mLen * mWidth)
End Sub