public sub item_clickhandler(ByVal sender as object, ByVal e as _
  System.EventArgs) 
    if typeof(sender) is MenuItem then
        Dim mnu as menuItem = ctype(sender, menuItem)
        if mnu.Name = "ein bestimmter" then
            ' tue etwas für dieses menuitem
        endif
    endif
end sub