anchor.diff:          )
           this.Birthday.InputView <- pickerDate
           this.Birthday.InputAccessoryView <- accessoryBirthday.View
  +        this.Birthday.EditingDidBegin.Add(fun _ ->
  +            if String.IsNullOrEmpty(this.Birthday.Text.Trim()) = false then
  +                pickerDate.Date <- NSDate.op_Implicit (DateTime.ParseExact(this.Birthday.Text, "M/d/yyyy", CultureInfo.CurrentCulture))
  +        )
   
           // Country Picker
           this.Country.InputView <- pickerCountry.View
           this.Country.InputAccessoryView <- accessoryCountry.View
  -        pickerCountry.Picker.Source <- { 
  -            new UIPickerViewModel() with
  -            override this.GetRowsInComponent(pickerView, comp) = countries.Length
  -            override this.GetComponentCount(pickerView) = 1
  -            override this.GetTitle(pickerView, row, comp) = countries.[row].Name
  -            override this.Selected(pickerView, row, comp) =
  -                country <- Some countries.[row]
  -                controller.Country.Text <- country.Value.Name
  -        }
  +        pickerCountry.Picker.Source <- sourceCountry
           this.Country.EditingDidBegin.Add(fun _ ->
               Async.startNetworkWithContinuation
                   (Settings.countries ())
                   (function
  -                    | Api.ApiOk result -> 
  -                        countries <- result
  +                    | Api.ApiOk c -> 
  +                        countries <- c
                           regions <- [||]
                           pickerCountry.Progress.StopAnimating()
                           pickerCountry.Picker.ReloadAllComponents()
  +                        match country with
  +                        | Some country -> pickerCountry.Picker.Select(countries |> Array.findIndex (fun c -> c.Id = country.Id), 0, false)
  +                        | _ -> ()
                       | error ->
                           pickerCountry.Progress.StopAnimating()
                           this.HandleApiFailure error
  
positive.code:                 Async.startNetworkWithContinuation
                      (Settings.regions country.Id)
                      (function
                          | Api.ApiOk rs -> 
                              regions <- rs
                              pickerRegion.Progress.StopAnimating()
                              pickerRegion.Picker.ReloadAllComponents()
                          | error ->
                              pickerRegion.Progress.StopAnimating()
                              this.HandleApiFailure error
  
negative.code:             (fun _ -> controller.Birthday.ResignFirstResponder() |> ignore)
          )
  
      let mutable country:LocationCountry option = None
      let mutable countries:LocationCountry [] = [||]
      let pickerCountry = new AsyncPickerViewController() //new RectangleF(0.0f,0.0f,320.0f,216.0f)
      let accessoryCountry =
          new NavigateInputAccessoryViewController(
  