Sub acActionBarLight_MenuItemClick (Item As ACMenuItem)
Dim strQuery As String
Dim cur As Cursor
Dim year As String
Dim list As List
list.Initialize
Dim acPopUp As ACPopupMenu
acPopUp.Initialize("acPopUp", dummyPanel)
strQuery = "SELECT strftime('%Y', TABLE_RECORDS.DATE) AS YEAR FROM TABLE_RECORDS WHERE FARM_KEY=?"
cur = sqlDB.ExecQuery2(strQuery, Array As String (Module.intContactCode))
For i = 0 To cur.RowCount - 1
cur.Position = i
year = cur.GetString("YEAR")
acPopUp.AddMenuItem(i, year, Null)
Next
acPopUp.Show
End Sub