Imports System
Imports OboutInc.TwoColorsMenu
Public Class vb_Horizontal
Inherits System.Web.UI.Page
private Sub Page_Load(ByVal sender As object, ByVal e As System.EventArgs)
Dim tcm1 as TwoColorsMenu = new TwoColorsMenu()
tcm1.ID = "tcm1"
tcm1.Add(nothing, "brands", "Brands", "javascript:alert('you clicked me');void(0);", nothing)
tcm1.Add("brands", "ibm", "IBM")
tcm1.Add("brands", "microsoft", "MICROSOFT")
tcm1.Add("brands", "obout", "OBOUT", "http://www.obout.com/", "_top")
tcm1.Add("obout", "treeview", "TreeView", "http://www.obout.com/t2/edraganddrop.aspx", "_top")
tcm1.Add("obout", "slidemenu", "Slide Menu", "http://www.obout.com/sm3/whatisnew.aspx", "_top")
tcm1.Add("obout", "calendar", "Calendar", "http://www.obout.com/calendar/", "_top")
tcm1.Add("obout", "postback", "Postback4", "http://www.obout.com/pb4/", "_top")
tcm1.Add("obout", "splitter", "Splitter", "http://www.obout.com/splitter/", "_top")
tcm1.Add("obout", "easymenu", "EasyMenu", "http://www.obout.com/em/", "_top")
tcm1.Add("obout", "combobox", "Combobox", "http://www.obout.com/em/ex_combobox.aspx", "_top")
tcm1.Add("obout", "editor", "HTML Editor", "http://www.obout.com/editor_new/", "_top")
tcm1.Add("obout", "superbutton", "Super Button", "http://www.obout.com/osb/", "_top")
tcm1.Add("obout", "treedb", "Tree_DB", "http://www.obout.com/t_db/index.aspx", "_top")
tcm1.Add("obout", "twocolorsmenu", "TwoColorsMenu", "http://www.obout.com/tcm/tcm.aspx", "_top")
tcm1.Add(nothing, "systems", "Systems")
tcm1.Add("systems", "desktops", "Desktops")
tcm1.Add("systems", "handhelds", "Handhelds")
tcm1.Add("systems", "notebooks", "Notebooks")
tcm1.Add("systems", "servers", "Servers")
tcm1.Add(nothing, "hardware", "Hardware")
tcm1.Add("hardware", "accessories", "Accessories")
tcm1.Add("hardware", "keyboards", "Keyboards")
tcm1.Add("hardware", "memory", "Memory")
tcm1.Add("hardware", "printers", "Printers")
tcm1.Add("hardware", "videocards", "Video Cards")
tcm1.Add(nothing, "software", "Software")
tcm1.Add("software", "applications", "Applications")
tcm1.Add("software", "licensing", "Licensing")
Me.Controls.Add(tcm1)
End Sub
End Class