" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If If NOT (SplitToolbar AND ButtonsintCounter => NumMenuItems) Then strCODE = strCODE & "" End if strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

	"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If If NOT (SplitToolbar AND ButtonsintCounter => NumMenuItems) Then strCODE = strCODE & "" End if strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

	"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If If NOT (SplitToolbar AND ButtonsintCounter => NumMenuItems) Then strCODE = strCODE & "" End if strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

	"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If If NOT (SplitToolbar AND ButtonsintCounter => NumMenuItems) Then strCODE = strCODE & "" End if strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

	"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If If NOT (SplitToolbar AND ButtonsintCounter => NumMenuItems) Then strCODE = strCODE & "" End if strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

	"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If If NOT (SplitToolbar AND ButtonsintCounter => NumMenuItems) Then strCODE = strCODE & "" End if strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

	"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If If NOT (SplitToolbar AND ButtonsintCounter => NumMenuItems) Then strCODE = strCODE & "" End if strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

	"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If If NOT (SplitToolbar AND ButtonsintCounter => NumMenuItems) Then strCODE = strCODE & "" End if strCODE = strCODE & " "& vbNewLine If SplitToolbar Then ButtonsintCounter = ButtonsintCounter + 1 If ButtonsintCounter => NumMenuItems Then If Not VerticalToolbarStarted Then 'start a vertical toolbar here VerticalToolbarStarted = True 'close table and div tags and start new strCODE = strCODE & "

	"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

" Else 'vertical toolbar was already started, continue building it 'start a new row strCODE = strCODE & "" End If End If End If strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & ""& vbNewLine strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & " "& vbNewLine strCODE = strCODE & "

"& vbNewLine strCODE = strCODE & "