Android Question Set event in class ContactUtils

 'Returns a List with cuEvents items.
 Public Sub GetEvents (Id As Long) As List
       Dim res As List
       Res.Initialize
       For Each obj () As Object In GetData ("vnd.android.cursor.item / contact_event", Array As String      ("data1", "data2"), Id, Null)
           Dim and As CuEvent
           E.Initialize
           E.DateString = obj (0)
           E.EventType = eventTypes.Get (obj (1))
           Res.Add (e)
      Next
  Return res
End Sub