Custom item for a list

'Globals
Dim MySpinner As Spinner  'Created in designer
Dim MyValue  As Int

'Activity_Create
MySpinner.AddAll(Array As Int(0,10,20,30,40,60,80,99)) 



Sub MySpinner_Itemclick(Position As Int, Value As Object)
   MyValue=Value
   If MyValue=99 Then MyValue=ManualInput
   Msgbox(100*MyValue,"result")
End Sub

Sub ManualInput As Int
   Dim MyNumber As NumberDialog  'need dialog lib
   Dim ret As Int
      ret=MyNumber.Show("Please enter a number not in list","ok","Cancel","",Null)
      If ret=-1 Then
         Return MyNumber.Number
      End If
End Sub

MySpinner.TextSize=24  'line must be before adding items to list
MySpinner.TextColor=Colors.Red  'line must be before adding items
MySpinner.AddAll(Array As String("","10","20","30","40","60","80","99"))

Sub lblTest_Click
   Dim lstTest As List
   Dim result As Int
   lstTest.Initialize
   lstTest.AddAll(Array As String("10","20", "30", "Custom"))

   result = InputList(lstTest,"Pick from List",1)
   If result < 0 Then 
      lblTest.Text=lblTest.Text
   Else If lstTest.Get(result) = "Custom" Then
       myValue=ManualInput       'using variation of your ManualInput code from above
      lblTest.Text = myValue
   Else
      lblTest.Text = lstTest.Get(result)
   End If
End Sub