Android Question Long text length(single Line) fit label width automatically

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private xui As XUI
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Private Label1 As Label
    Private Label2 As Label
    Private Label3 As Label
    Dim lbl_Hor_length As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    Label3.Text = "123456789AB A hfhdhfdhh  123456789  944436644444444 12444554454455 4444777777  Alhootti 0123456789  ALHOOTTI www.b4x.com"
    lbl_Hor_length = Label3.Text.Length * 29
    Label3.Width = lbl_Hor_length
End Sub

Sub Globals
    Private HorizontalScrollView1 As HorizontalScrollView
    Private Label1 As Label
    Private bmpTest As Bitmap
    Private cvsTest As Canvas
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
   
    InitCanvas
    InitLabel
   
    AddText("123456789AB A hfhdhfdhh  123456789  944436644444444 12444554454455 4444777777  Alhootti 0123456789  ALHOOTTI www.b4x.com")
End Sub

Private Sub InitCanvas
    'Inintialize a small Bitmap for the Canvas
    bmpTest.InitializeMutable(2dip, 2dip)
    cvsTest.Initialize2(bmpTest)
End Sub

Private Sub InitLabel
    'Initialize the Label
    Label1.Initialize("")
    Label1.TextSize = 18

    'Add the Label onot the HorizontalScrollView
    HorizontalScrollView1.Panel.AddView(Label1, 0, 0, 100dip, HorizontalScrollView1.Height)

    'Remove the horizontal scrollbar
    Private jo = HorizontalScrollView1 As JavaObject
    jo.RunMethod("setHorizontalScrollBarEnabled", Array As Object(False))
End Sub

Private Sub AddText(Text As String)
    Label1.Text = Text

    'Calculate the width
    Label1.Width = cvsTest.MeasureStringWidth(Label1.Text, Label1.Typeface, Label1.TextSize)
    HorizontalScrollView1.Panel.Width = Label1.Width
End Sub