RE:Dbfast Barra de Ferramentas
Supongo que quieres decir una barra de herranientas con iconos como todos los programas tienen.
SET WINDOW TITLE TO 'Recursos Humanos'
CREATE WINDOW "sTitulo" FROM 1,1 TO 2,30 STYLE 1024
SELECT WINDOW "sTitulo" VIEW
SET ERASE VIDEO TO 116
ERASE
CREATE PICTURE BUTTON "Cliente" AT POINT 0,0 FROM ButtClientes PLAIN
nResolucion = HARDWARE(2)
IF nResolucion = 640
CREATE PICTURE BUTTON "GesSalir" AT POINT 0,600 FROM ButtSalirWindows PLAIN
ELSE
CREATE PICTURE BUTTON "GesSalir" AT POINT 0,760 FROM ButtSalirWindows PLAIN
ENDIF