В главной программе:
tbrDesktop=createobj('mytoolbar')&& создаем объект myToolBar
tbrDesktop.Dock(0)&& встраиваем панель инструментов в верхнюю границу окна
tbrDesktop.show && выводим на экран
do genmenu.mpr && вызов меню
read events && Активизирует элементы управления.

* создаем кнопку для просмотра файлов с расширениеми dbf и txt(separator-разделитель между кнопками)
define class mytoolbar as toolbar
add object btnBrowse as CommandButton
add object sep1 as Separator
add object btnRecode as CommandButton
add object btnTab as CommandButton

btnBrowse.height=20
btnBrowse.width=50
btnBrowse.caption=''
btnBrowse.picture='c:\program files\microsoft visual studio\vfp98\wizards\graphics\open.bmp'
btnBrowse.ToolTipText='Просмотр файла' && всплывающая подсказка
btnRecode.height=20
btnRecode.width=60
btnRecode.caption='dos->win'
btnRecode.ToolTipText='Перекодировка DOS-файла' && всплывающая подсказка
btnTab.height=20
btnTab.width=70
btnTab.caption='Настройка'
btnTab.ToolTipText='Настройка' && всплывающая подсказка


left=1
top=1
width=25

caption=''&& 'Desktop Attributes'
ShowTips=.t.

procedure init
this.btnRecode.visible=.f.
endproc

procedure btnBrowse.click
public gctablename
gctablename=getfile('DBF|TXT','Имя файла:','Открыть')
if !empty(gctablename)
do case
case right(gctablename,3)='DBF'
use (gctablename)
browse
case right(gctablename,3)='TXT'
tbrDesktop.btnRecode.visible=.t.
modify command (gctablename)
tbrDesktop.show
endcase
use
endif
endproc

procedure btnRecode.click
MODIFY COMMAND (gctablename) as 866
tbrDesktop.btnRecode.visible=.f.
tbrDesktop.show
endproc

procedure btnTab.click
use (nachdir+'\tab.dbf')
browse
use
endproc

enddefine && конец создания класса