tblMenu = {};
tblMenu[1] = {};
tblMenu[1].Text = "&Suck (OFF)";
tblMenu[1].ID = 1;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
Application.SetMenu(tblMenu);
if(e_ID == 1)then
if(e_ItemInfo.Checked)then
tblMenu[1].Checked = false;
tblMenu[1].Text = "&Suck (OFF)";
Application.SetMenu(tblMenu);
else
tblMenu[1].Checked = true;
tblMenu[1].Text = "&Suck (ON)";
Application.SetMenu(tblMenu);
end
end