Android Question How to create label in sequence with spinner's text...

Sub ColorLabel(l As Label)
    If a.Contains("red") Then
        l.color = Colors.Red
    else if a.Contains("green") Then
        l.color = Colors.Green
    else if a.Contains("yellow") Then
        l.color = Colors.Yellow
    End If
End Sub

Private Sub Button1_Click
    If Label1.Text = "" Then
        Label1.Visible=True
        Label1.Text= a
        ColorLabel(Label1)
    Else        
        If Label2.Text = "" Then
            Label2.Visible=True
            Label2.Text= a
            ColorLabel(Label2)
        Else                
            If Label3.Text = "" Then
                Label3.Visible=True
                Label3.Text= a
                ColorLabel(Label3)
            Else
                If Label4.Text = "" Then
                    Label4.Visible=True
                    Label4.Text= a
                    ColorLabel(Label4)
                Else
                    If Label5.Text = "" Then
                        Label5.Visible=True
                        Label5.Text= a
                        ColorLabel(Label5)
                    Else
                    If Label6.Text = "" Then
                        Label6.Visible=True
                        Label6.Text= a
                        ColorLabel(Label6)
'finish rest of labels like above
End sub

Sub Globals
    Private a As String
    Private Panel1 As Panel
    Private RadioButtonGreen As RadioButton
    Private RadioButtonRed As RadioButton
    Private RadioButtonyellow As RadioButton
    Private Spinner1 As Spinner
    Dim GreenArr(2), RedArr(3),YellowArr (4)As String
    Private Button1 As Button

    Private n As Int =8   'number of labels. You can change this to any number to have more labels
    Private lbl(n) As Label
    Private i As Int =0
End Sub

Private Sub Button1_Click
    Dim w =200dip, h=50dip As Float
    lbl(i).Initialize("lbl")
    Activity.AddView(lbl(i), 0,i*60dip+200dip, w, h)
    lbl(i).Text= a
    lbl(i).TextSize = 20
    ColorLabel(lbl(i))
    i=i+1
    If i=n Then Button1.Enabled =False
End Sub