This is my new menusystem, that I implement on all my sites during marts 2012.
Please consider to donate

Other valuable applications:

biler, hunde, pokemon, tv2, dmi, dba, fodbold, ekstrabladet, dsb, peter plys, britney, spears, paris, hilton, christina, aguilera, pamela, anderson, chat, games, carmen, electra, orlando, bloom, harry, potter, mp3, mp4,ipod, onvipe, band, chords, guitar, akkorder, event, eventlog, intranet, event-id, event-source, applications, system, security, error, warning, information, w2k, windows, 2000, xp, microsoft, html, hotfix, office, program, programs, software, freeware, shareware, mandatberegning vbBlack vbRed vbGreen vbYellow vbBlue vbMagenta, vbCyan vbWhite vbTextCompare vbSunday vbMonday vbTuesday vbWednesday vbThursday vbFriday vbSaturday vbUseSystemDayOfWeek vbFirstJan1 vbFirstFourDays vbFirstFullWeek vbGeneralDate vbShortDate vbLongTime vbShortTime vbObjectError vbOKOnly vbOKCancel vbAbortRetryIgnore vbYesNoCancel vbYesNo vbRetryCancel vbCritical vbQuestion vbExclamation vbInformation vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbDefaultButton4 vbApplicationModal vbSystemModal vbCr VbCrLf vbFormFeed vbLf vbNewLine vbNullChar vbNullString vbTab vbVerticalTab vbUseDefault vbTrue vbFalse vbEmpty vbNull vbInteger vbLong vbSingle vbDouble vbCurrency vbDate vbString vbObject vbError vbBoolean vbVariant vbDataObject vbDecimal vbByte vbArray Abs Array Asc Atn CBool CByte CCur CDate CDbl Chr CInt CLng Conversions Cos CreateObject CSng CStr Date DateAdd DateDiff DatePart DateSerial DateValue Day Escape Eval Exp Filter FormatCurrency FormatDateTime FormatNumber FormatPercent GetLocale GetObject GetRef Hex Hour InputBox InStr InStrRev Int Fix IsArray IsDate IsEmpty IsNull IsNumeric IsObject Join LBound LCase Left Len LoadPicture Log LTrim RTrim Trim Maths Mid Minute Month MonthName MsgBox Now Oct Replace RGB Right Rnd Round ScriptEngine ScriptEngineBuildVersion ScriptEngineMajorVersion ScriptEngineMinorVersion Second Set Locale SetLocale Sgn Sin Space Split Sqr StrComp String StrReverse Tan Time Timer TimeSerial TimeValue TypeName UBound UCase Unescape VarType Weekday WeekdayName Year Empty False Nothing Set MyObject Nothing Null True Byte Integer Long Single Double Currency Decimal Date Time String Boolean Empty Null Object Unknown Nothing Error vbEmpty vbNull vbInteger vbLong vbSingle vbDouble vbCurrency vbDate vbString vbObject vbError vbBoolean vbVariant vbDataObject vbByte vbArray Clear Execute Raise Replace Test StdIn StdOut StdErr Write WriteLine Execute Replace Class Err Matches Collection Regular Expression RegExp SubMatches Debug Match Scripting .Signer .Arguments .echo .quit WSHController WScript .Shell Environment .Network WSHController SpecialFolders AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup Desktop Favorites Fonts MyDocuments NetHood PrintHood Programs Recent SendTo StartMenu Startup Templates CreateObject CreateShortcut Arguments AtEndOfLine AtEndOfStream BuildVersion Character Property Column ComputerName CurrentDirectory Description WshRemoteError Environment Error ExitCode FullName Hotkey IconLocation Interactive Item WshNamed WshUnnamed length WshSpecialFolders Line WshRemoteError Name Named Number Path Return ProcessID RelativePath ScriptFullName ScriptName Source SourceText SpecialFolders Status WshRemote StatusStdErr StdErr StdIn StdOut TargetPath Unnamed UserDomain UserName Version WindowStyle WorkingDirectory And Not Or is mod xor Empty Null Boolean Byte Integer Currency Long Single Double Date Time String Object Error Item Length Count On Error Resume Next global Err .Clear .Raise .Number Call Const Dim Do Loop Erase Execute ExecuteGlobal Exit For Each Next Function If Then Else Option Explicit Private Property Get Let Set Public Randomize ReDim Local Global Rem Select Case Set Stop Sub While Wend With dim private function true on error resume next set createobject if and < > Then else false end executeglobal not to ubound cstr lbound for next elseif dim private function true on error resume next set createobject if and < > Then else false end executeglobal not to ubound cstr lbound for next elseif dim private function true on error resume next createobject if and < > then else false end executeglobal not to ubound cstr lbound for next elseif