Android Question spnAge.add do not add items. (Resolved)

Public Sub Covert_Bailey(Gender As String, Age As Int, Hips As Int, Tigh As Int, Calf As Int, Wrist As Int) As Int

    If Gender = "Female" Then
        If Age = 30 OR Age < 30 Then
            Return(Hips +0.8 * Tigh - 2 * Calf - Wrist) '(For Women 30 years old OR younger)
        Else
            Return(Hips + Tigh - 2*Calf - Wrist) '(For Women over age 30)
        End If
    Else
        If Age > 30 Then
            Return(Tigh + 0.5 * Hips - 3 * Calf - Wrist) '(For Men 30 years old OR younger)
        Else
            Return(Tigh + 0.5* Hips - 2.7 * Calf - Wrist) '(For Men over age 30)
        End If
    End If

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim calc As calculations
    calc.Initialize

    Private tbMain As TabHost
    Private edtCalf As EditText
    Private edtHips As EditText
    Private edtThigh As EditText
    Private edtWrist As EditText
    Private spnMeasures As Spinner
    Private spnSex As Spinner
    Private lblResult As Label

    Private spnAge As Spinner
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("main")
    tbMain.AddTab("Covert Bailey", "bailey")
    tbMain.AddTab("US Navy", "navy")
    tbMain.AddTab("BMI", "bmi")

    spnMeasures.Add("Inches")
    spnMeasures.Add("Cm")
    spnSex.Add("Male")
    spnSex.Add("Female")

    Dim i As Int
    For i = 0 To 100
        spnAge.Add(i)
    Next

End Sub

Sub edtHips_TextChanged (Old As String, New As String)

    ToastMessageShow("edtHips fired", True)

        If IsNumber(edtHips.Text) AND IsNumber(edtThigh.Text) AND  IsNumber(edtCalf.Text) AND IsNumber(edtWrist.Text) Then
            lblResult.Text = calc.Covert_Bailey(spnSex.SelectedItem, spnAge.SelectedItem, edtHips.Text, edtThigh.Text, edtCalf.Text, edtWrist.Text)
        End If

End Sub