
' Toolbar bitmap
#define IDB_TBRBMP							100

' ToolBar
function DoToolBar(ByVal hInst as HINSTANCE,ByVal hToolBar as HWND) as HWND
	dim tbab as TBADDBITMAP
	dim tbrbtn27 as TBBUTTON=(0,0,TBSTATE_ENABLED,TBSTYLE_SEP,0,0)
	dim tbrbtn26 as TBBUTTON=(25,IDM_EDIT_BLOCKUNCOMMENT,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn25 as TBBUTTON=(24,IDM_EDIT_BLOCKCOMMENT,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn24 as TBBUTTON=(22,IDM_EDIT_BLOCKOUTDENT,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn23 as TBBUTTON=(23,IDM_EDIT_BLOCKINDENT,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn22 as TBBUTTON=(0,0,TBSTATE_ENABLED,TBSTYLE_SEP,0,0)
	dim tbrbtn21 as TBBUTTON=(19,IDM_EDIT_BOOKMARKDELETE,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn20 as TBBUTTON=(18,IDM_EDIT_BOOKMARKPREVIOUS,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn19 as TBBUTTON=(17,IDM_EDIT_BOOKMARKNEXT,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn18 as TBBUTTON=(16,IDM_EDIT_BOOKMARKTOGGLE,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn17 as TBBUTTON=(0,0,TBSTATE_ENABLED,TBSTYLE_SEP,0,0)
	dim tbrbtn16 as TBBUTTON=(10,IDM_EDIT_REPLACE,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn15 as TBBUTTON=(9,IDM_EDIT_FIND,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn14 as TBBUTTON=(0,0,TBSTATE_ENABLED,TBSTYLE_SEP,0,0)
	dim tbrbtn13 as TBBUTTON=(4,IDM_EDIT_REDO,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn12 as TBBUTTON=(3,IDM_EDIT_UNDO,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn11 as TBBUTTON=(0,0,TBSTATE_ENABLED,TBSTYLE_SEP,0,0)
	dim tbrbtn10 as TBBUTTON=(5,IDM_EDIT_DELETE,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn9 as TBBUTTON=(2,IDM_EDIT_PASTE,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn8 as TBBUTTON=(1,IDM_EDIT_COPY,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn7 as TBBUTTON=(0,IDM_EDIT_CUT,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn6 as TBBUTTON=(0,0,TBSTATE_ENABLED,TBSTYLE_SEP,0,0)
	dim tbrbtn5 as TBBUTTON=(11,IDM_FILE_SAVEALL,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn4 as TBBUTTON=(8,IDM_FILE_SAVE,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn3 as TBBUTTON=(7,IDM_FILE_OPEN,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn2 as TBBUTTON=(6,IDM_FILE_NEW,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0)
	dim tbrbtn1 as TBBUTTON=(0,0,TBSTATE_ENABLED,TBSTYLE_SEP,0,0)

	'Set toolbar struct size
	SendMessage(hToolBar,TB_BUTTONSTRUCTSIZE,sizeof(TBBUTTON),0)
	'Set toolbar bitmap
	tbab.hInst=hInst
	tbab.nID=IDB_TBRBMP
	SendMessage(hToolBar,TB_ADDBITMAP,22,@tbab)
	'Set toolbar buttons
	SendMessage(hToolBar,TB_ADDBUTTONS,27,@tbrbtn1)
	return hToolBar

end function
