Sub Activity_CreateMenu(Menu As ACMenu)
Dim item As ACMenuItem
Menu.Clear
item = Menu.Add2(1, 1, " Find", TextToBitmapDrawable("F", 24, Colors.RGB(0, 0, 0)))
item.ShowAsAction = item.SHOW_AS_ACTION_ALWAYS
item = Menu.Add2(2, 2, " Pat", TextToBitmapDrawable("P", 24, Colors.RGB(0, 0, 255)))
item.ShowAsAction = item.SHOW_AS_ACTION_ALWAYS
item = Menu.Add2(3, 3, " Meds", TextToBitmapDrawable("M", 24, Colors.RGB(255, 0, 0)))
item.ShowAsAction = item.SHOW_AS_ACTION_ALWAYS
item = Menu.Add2(4, 4, " Vals", TextToBitmapDrawable("V", 24, Colors.RGB(0, 192, 0)))
item.ShowAsAction = item.SHOW_AS_ACTION_ALWAYS
'overflow menu (3 dots)
'----------------------
item = Menu.Add(5, 5, " Settings", Null)
item = Menu.Add(6, 6, " SQL", Null)
item = Menu.Add(7, 7, " Phone Patient", Null)
item = Menu.Add(8, 8, " Text Patient", Null)
End Sub