Sub txtCIEvents_FocusChanged (HasFocus As Boolean)
DateTime.DateFormat = "dd-MM-yyyy"
Dim MyCalBody As String
Dim MyCalTime As String
Dim MyCalDate As String
Dim MyEventDate As String = lblDateShort.text
MyEventDate = MyEventDate.Replace("/", "-")
Dim index As Int = clvEvents.GetItemFromView(Sender)
Dim pnl As Panel = clvEvents.GetPanel(index)
Dim caltext As EditText = pnl.GetView(4) <<<<<<<<<Error Here
Dim caltime As Label = pnl.GetView(0)