var ToolBar_Supported = ToolBar_Supported ;

if (ToolBar_Supported != null && ToolBar_Supported == true)

{

	Frame_Supported = false;



	// Customize default ICP menu color - bgColor, fontColor, mouseoverColor

	setDefaultICPMenuColor("99CCFF", "#000000", "#3333FF");

        setICPMenuFont("bold 9pt 宋体");

	// Customize toolbar background color

	setToolbarBGColor("#FFFFFF");

	// setToolbarBGColor("#000000");





	//***** Add ICP menus *****



	addICPMenu("homeMenu", " 首页", "", "/index.html");



	addICPMenu("codeMenu", " 代码中心", "最Cool的VB代码", "/sourcecode/sourcecode.htm");

	setICPSubMenuWidth("codeMenu","ABSOLUTE",120);

	addICPSubMenu("codeMenu", " Windows API", "/sourcecode/sapi.htm");

	addICPSubMenu("codeMenu", " 窗口/控件", "/sourcecode/scontrol.htm");

	addICPSubMenu("codeMenu", " 网络与Internet", "/sourcecode/snet.htm");

	addICPSubMenu("codeMenu", " 文件操作", "/sourcecode/sfile.htm");

	addICPSubMenu("codeMenu", " 数据库", "/sourcecode/sdatabase.htm");

	addICPSubMenu("codeMenu", " 图形图像", "/sourcecode/sgra.htm");

        addICPSubMenu("codeMenu", " 多媒体", "/sourcecode/smedia.htm");

        addICPSubMenu("codeMenu", " 系统", "/sourcecode/ssystem.htm");

        addICPSubMenu("codeMenu", " 注册表操作", "/sourcecode/sreg.htm");

        addICPSubMenu("codeMenu", " 杂项", "/sourcecode/sza.htm");

        addICPSubMenu("codeMenu", " ASP/VBScript", "/sourcecode/sasp.htm");

        addICPSubMenu("codeMenu", " VBA", "/sourcecode/svba.htm");

        addICPSubMenu("codeMenu", " DirectX&游戏", "/sourcecode/sdirectx.htm");

        

	addICPMenu("tipsMenu", " 开发技巧", "", "/vbtips/tips.htm");

	setICPSubMenuWidth("tipsMenu","ABSOLUTE",130);

	addICPSubMenu("tipsMenu", " 系统", "/vbtips/tips_system.htm");

	addICPSubMenu("tipsMenu", " 控件", "/vbtips/tips_control.htm");

	addICPSubMenu("tipsMenu", " 数据库", "/vbtips/tips_database.htm");

	addICPSubMenu("tipsMenu", " 网络/Internet", "/vbtips/tips_net.htm");

	addICPSubMenu("tipsMenu", " 图形图像", "/vbtips/tips_graphics.htm");

	addICPSubMenu("tipsMenu", " 多媒体", "/vbtips/tips_mm.htm");

	addICPSubMenu("tipsMenu", " 窗口", "/vbtips/tips_windows.htm");

	addICPSubMenu("tipsMenu", " 字符串", "/vbtips/tips_string.htm");

	addICPSubMenu("tipsMenu", " 键盘、鼠标、打印", "/vbtips/tips_pher.htm");

	addICPSubMenu("tipsMenu", " 杂项", "/vbtips/tips_misc.htm");

	

	addICPMenu("qaMenu", " 问答", "网友VB问答", "/qa/qa.htm");

	setICPSubMenuWidth("qaMenu","ABSOLUTE",120);

	addICPSubMenu("qaMenu", " 控件", "/qa/qa_control_index.htm");

	addICPSubMenu("qaMenu", " 系统", "/qa/qa_system_index.htm");

	addICPSubMenu("qaMenu", " 数据库", "/qa/qa_db_index.htm");

	addICPSubMenu("qaMenu", " 文件操作", "/qa/qa_file_index.htm");

	addICPSubMenu("qaMenu", " Windows API", "/qa/qa_api_index.htm");

	addICPSubMenu("qaMenu", " VBA", "/qa/qa_vba_index.htm");

	addICPSubMenu("qaMenu", " 网络/Internet", "/qa/qa_net_index.htm");

	addICPSubMenu("qaMenu", " VB_IDE", "/qa/qa_run_index.htm");

	addICPSubMenu("qaMenu", " 注册表", "/qa/qa_reg_index.htm");

	addICPSubMenu("qaMenu", " 数学运算", "/qa/qa_math_index.htm");

	addICPSubMenu("qaMenu", " 杂项", "/qa/qa_m_index.htm");



	addICPMenu("arMenu", " 开发文档", "齐全的开发文档以及资料", "/art/article.htm");

	addICPSubMenu("arMenu", " ASP/VBScript", "/art/ar_asp.htm");

	addICPSubMenu("arMenu", " ActiveX控件/Com", "/art/ar_control.htm");

	addICPSubMenu("arMenu", " 数据库", "/art/ar_database.htm");

	addICPSubMenu("arMenu", " 文件、驱动器操作", "/art/ar_file.htm");

	addICPSubMenu("arMenu", " 图形图像&多媒体", "/art/ar_mmedia.htm");

	addICPSubMenu("arMenu", " 网络/Internet", "/art/ar_net.htm");

	addICPSubMenu("arMenu", " Windows系统", "/art/ar_system.htm");

	addICPSubMenu("arMenu", " VB IDE", "/art/ar_vb_ide.htm");

	addICPSubMenu("arMenu", " VBA/OLE AutoMation", "/art/ar_vba.htm");

	addICPSubMenu("arMenu", " 窗口及基本控件", "/art/ar_window.htm");

	addICPSubMenu("arMenu", " .NET 技术", "/art/ar_dotnet.htm");

	

	addICPMenu("downloadMenu", " 下载", "", "");

	setICPSubMenuWidth("downloadMenu","ABSOLUTE",90);

	addICPSubMenu("downloadMenu", " 开发控件", "/control.htm");

	addICPSubMenu("downloadMenu", " 程序开发库", "/libvb.htm");

	addICPSubMenu("downloadMenu", " 网友作品", "/mysoft.htm");

	

	addICPMenu("favMenu", " 站点连接", "站点连接", "/fav.htm");

	

	addICPMenu("arVBNETMenu", " VB.NET专栏", "VB.NET专栏", "/vs7/index.htm");

	

	addICPMenu("actMenuPic","My Blog","","http://blog.csdn.net/technofantasy");

	setICPSubMenuWidth("actMenuPic","ABSOLUTE",120);

	//addICPMenu("actMenu", " 进入原来站点", "", "http://member.netease.com/~blackcat");

	//setICPSubMenuWidth("actMenu","ABSOLUTE",120);

	//addICPSubMenu("actMenu", " 开发论坛", "http://blackcat.abc.yesite.com/");

	//addICPSubMenu("actMenu", " 留言簿", "http://member.netease.com/~blackcat/guestbook/blackcat.html");



}