Existe alguma Função tipo Progress BAR para FWPPC

Sergio

include "FWCE.ch"

function Main()

local oWnd, oPgr

DEFINE WINDOW oWnd TITLE "Progress Bars"

@ 2, 8 SAY "FiveWin for Pocket PC" OF oWnd SIZE 150, 20

@ 4, 6 PROGRESS oPgr POS 5 OF oWnd SIZE 150, 15

@ 5, 6 BUTTON "-" OF oWnd SIZE 20, 20 ;
ACTION oPgr:nPosition--

@ 5, 28 BUTTON "+" OF oWnd SIZE 20, 20 ;
ACTION oPgr:nPosition++

ACTIVATE WINDOW oWnd ;
ON CLICK MsgInfo( "click!" )

return nil