TwoColorsMenu - The fastest menu in the world

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