Android Question Where is TextView in B4A?

'=================================================
'In this example, we define a separate CreateTextViewWithScrolling sub that
'takes a text parameter and returns a TextView. This sub creates the ScrollView
'and TextView with the given text, and adds the TextView to the ScrollView's panel.
'The Activity_Create sub then calls this sub to create the TextView and add it to
'activity's view hierarchy. This way, you can create a TextView with scrolling
'and no edit anytime by calling the CreateTextViewWithScrolling sub and passing
'it the desired text as a parameter.

'In this updated code, we declare the variables For the ScrollView And
'TextView at the top of the CreateTextViewWithScrolling sub, and then
'create And Initialize them later in the code. This makes the code more
'readable And easier To modify.

Sub Activity_Create(FirstTime As Boolean)
    ' Call CreateTextViewWithScrolling sub to create the TextView
    Dim TextView1 As TextView = CreateTextViewWithScrolling("This is a long text that requires scrolling to see all of it.")
    Activity.AddView(TextView1, 0, 0, 100%x, 100%y)
End Sub

Sub CreateTextViewWithScrolling(text As String) As TextView
    ' Declare variables
    Dim ScrollView1 As ScrollView
    Dim TextView1 As TextView

    ' Create a ScrollView to contain the TextView
    ScrollView1.Initialize(0, 0, 100%x, 100%y)

    ' Create a TextView with scrolling enabled and editing disabled
    TextView1.Initialize("TextView1")
    TextView1.Text = text
    TextView1.Color = Colors.White
    TextView1.Gravity = Gravity.LEFT
    TextView1.TextSize = 16
    TextView1.ScrollingEnabled = True
    TextView1.Enabled = False ' Disable editing

    ' Add the TextView to the ScrollView's panel
    ScrollView1.Panel.AddView(TextView1, 0, 0, 100%x, 100%y)

    ' Return the created TextView
    Return TextView1
End Sub

Sub Page_Create(Title As String)
    ' Create a ScrollView to contain the Label
    Dim ScrollView1 As ScrollView
    ScrollView1.Initialize("ScrollView1")
    Page.RootPanel.AddView(ScrollView1, 0, 0, 100%x, 100%y)

    ' Call CreateLabelWithScrolling sub to create the Label
    Dim lbl As Label
    lbl = CreateLabelWithScrolling("This is a long text that requires scrolling to see all of it.")

    ' Add the Label to the ScrollView's panel
    ScrollView1.Panel.AddView(lbl, 0, 0, 100%x, 100%y)
End Sub

Sub CreateLabelWithScrolling(text As String) As Label
    ' Declare variables
    Dim ScrollView1 As ScrollView
    Dim Label1 As Label

    ' Create a ScrollView to contain the Label
    ScrollView1.Initialize(0, 0, 100%x, 100%y)

    ' Create a Label with scrolling enabled and text wrapping
    Label1.Initialize("Label1")
    Label1.Text = text
    Label1.Color = Colors.White
    Label1.Gravity = Gravity.LEFT
    Label1.TextSize = 16
    Label1.SingleLine = False
    Label1.ScrollingEnabled = True

    ' Add the Label to the ScrollView's panel
    ScrollView1.Panel.AddView(Label1, 0, 0, 100%x, 100%y)

    ' Return the created Label
    Return Label1
End Sub