Sub txtEvents_FocusChanged (HasFocus As Boolean)
Dim index As Int= clvEvents.GetItemFromView(Sender)
Dim pnl As Panel = clvEvents.GetPanel(index)
Dim caltext As EditText = pnl.GetView(2)
Dim caltime As Label = pnl.GetView(0)
If HasFocus=True Then
MyCalTime = caltime.text
MyCalBody = caltext.text
LogColor("Cal Date: " & MyCalDate, Colors.blue)
LogColor("Cal Time: " & MyCalTime, Colors.blue)
LogColor("Cal Body: " & MyCalBody, Colors.blue)
If MyCalBody <> "" Then
' Do some stuff
End If
End If
End Sub