Sub selectFarm
loadingCircle.Show
Log(">> select >>")
Dim farmSelect As farmValue=clv1.GetValue(clv1.GetItemFromView(Sender)) '<<< Error
Log("<< select <<")
StartActivity(animallist)
refreshFarm.elm=clv1.GetItemFromView(Sender)
CallSubDelayed2(animallist,"refreshList",farmSelect.id)
End Sub