Load Spinner depending on selection of another

Sub Globals
    Dim spn1, spn2 As Spinner
End Sub

Sub Activity_Create(FirstTime As Boolean)
    spn1.Initialize("spn1")
    Activity.AddView(spn1, 20dip, 20dip, 200dip, 50dip)
    
    spn2.Initialize("spn2")
    Activity.AddView(spn2, 20dip, 90dip, 200dip, 50dip)
    
    spn1.Add("A")
    spn1.Add("B")
    spn1.Add("C")
    
    spn1_ItemClick(0, "A")    ' sets Spinner spn2
End Sub

Sub spn1_ItemClick (Position As Int, Value As Object)
    spn2.Clear
    Select Value
    Case "A"
        spn2.Add("1")
        spn2.Add("2")
    Case "B"
        spn2.Add("1")
        spn2.Add("2")
        spn2.Add("3")
        spn2.Add("4")
    Case "C"
        spn2.Add("1")
        spn2.Add("2")
        spn2.Add("3")
        spn2.Add("4")
        spn2.Add("5")
        spn2.Add("6")
    End Select
End Sub