Sub WriteMenus() Dim HTMLStr Dim NL NL = Chr(10) HTMLStr = "" HTMLStr = HTMLStr & NL & "" HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & "" HTMLStr = HTMLStr & NL & "" HTMLStr = HTMLStr & NL & "" HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & "
Using the BIOS" HTMLStr = HTMLStr & NL & " Object
Using the Unzip" HTMLStr = HTMLStr & NL & " Control
" HTMLStr = HTMLStr & NL & " Creating a" HTMLStr = HTMLStr & NL & " Video Player in Visual Basic
" HTMLStr = HTMLStr & NL & " Making Visual" HTMLStr = HTMLStr & NL & " Basic 3.0 Controls Look 3D
" HTMLStr = HTMLStr & NL & " Beginning" HTMLStr = HTMLStr & NL & " Visual Basic Programming

Hover here to hide this" HTMLStr = HTMLStr & NL & " menu

" HTMLStr = HTMLStr & NL & "
" HTMLStr = HTMLStr & NL & "" HTMLStr = HTMLStr & NL & "" HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & "
Using the BIOS" HTMLStr = HTMLStr & NL & " Object
" HTMLStr = HTMLStr & NL & " Beginning" HTMLStr = HTMLStr & NL & " Visual Basic Programming*

* Only parts of this will apply
" HTMLStr = HTMLStr & NL & " Hover here to hide this" HTMLStr = HTMLStr & NL & " menu

" HTMLStr = HTMLStr & NL & "
" HTMLStr = HTMLStr & NL & "" HTMLStr = HTMLStr & NL & "" HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & "
PAGE SUBMENU >
" HTMLStr = HTMLStr & NL & " Home Page
" HTMLStr = HTMLStr & NL & " Search this" HTMLStr = HTMLStr & NL & " Site
" HTMLStr = HTMLStr & NL & " Links

Sign/view my" HTMLStr = HTMLStr & NL & " Guestbook

" HTMLStr = HTMLStr & NL & "

Other" HTMLStr = HTMLStr & NL & " Information
" HTMLStr = HTMLStr & NL & " Information/Feedback
" HTMLStr = HTMLStr & NL & " Privacy Policy
" HTMLStr = HTMLStr & NL & " Browser" HTMLStr = HTMLStr & NL & " Compatibility
owenrudge.co.uk" HTMLStr = HTMLStr & NL & " Awards

" HTMLStr = HTMLStr & NL & "

Other" HTMLStr = HTMLStr & NL & " Sections
" HTMLStr = HTMLStr & NL & " GEM Workshop
" HTMLStr = HTMLStr & NL & " Owen's" HTMLStr = HTMLStr & NL & " Transport Tycoon Station
" HTMLStr = HTMLStr & NL & "

Advertisements
" HTMLStr = HTMLStr & NL & " ZD Tips -" HTMLStr = HTMLStr & NL & " Visual Basic Tips
" HTMLStr = HTMLStr & NL & " VBWire - Excellent VB resource
" HTMLStr = HTMLStr & NL & " Grey Matter -" HTMLStr = HTMLStr & NL & " Great place for programming tools, and more
" HTMLStr = HTMLStr & NL & " Microsith - The Dark Side of the" HTMLStr = HTMLStr & NL & " Source
" HTMLStr = HTMLStr & NL & " Deltasoft (FreeGEM) - Home of the" HTMLStr = HTMLStr & NL & " FreeGEM project
" HTMLStr = HTMLStr & NL & " FreeUK - A good free UK ISP
" HTMLStr = HTMLStr & NL & " freenetname -" HTMLStr = HTMLStr & NL & " Another good ISP, with a free domain name!
" HTMLStr = HTMLStr & NL & " TheCounter.com - Excellent web" HTMLStr = HTMLStr & NL & " counter
" HTMLStr = HTMLStr & NL & " Atomz - Super free search tool
" HTMLStr = HTMLStr & NL & " emmabunton.co.uk - Super Emma site - winner of Gold award!

" HTMLStr = HTMLStr & NL & "

Hover here to hide this" HTMLStr = HTMLStr & NL & " menu

" HTMLStr = HTMLStr & NL & "
" HTMLStr = HTMLStr & NL & "" HTMLStr = HTMLStr & NL & "" HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & " " HTMLStr = HTMLStr & NL & "
Utility Base" HTMLStr = HTMLStr & NL & " Home
" HTMLStr = HTMLStr & NL & " OSPlus
" HTMLStr = HTMLStr & NL & " Title Bar" HTMLStr = HTMLStr & NL & " Clock
" HTMLStr = HTMLStr & NL & " File3D
" HTMLStr = HTMLStr & NL & " Notebook

Hover here to hide this" HTMLStr = HTMLStr & NL & " menu

" HTMLStr = HTMLStr & NL & "
" document.write HTMLStr End Sub