Sub Grid_Click ( ) 
    MsgBox ( "Menu click on item:  ")
End Sub

MsgBox ("started") 
Grid.BackColor = 255
call Grid.AddItem ("aaa", 1) 