STORE 0 TO m.hwndPB && дескриптор прогресс-бара

*** константы win32api ***
*m.PBM_SETRANGE=1025
m.PBM_SETRANGE32=1030
m.PBM_SETPOS=1026
m.PROGRESS_CLASS='msctls_progress32'
m.lpWindowName=.null.
m.WS_CHILD=1073741824
m.WS_VISIBLE=268435456
DECLARE LONG CreateWindowEx IN win32api LONG dwExStyle,STRING @lpClassName,STRING @lpWindowName,;
 LONG dwStyle,LONG x,LONG y,LONG nWidth,LONG nHeight,LONG hWndParent,LONG hMenu,LONG hInstance,LONG lpParam
DECLARE LONG SendMessage IN win32api LONG hwnd,LONG msg,LONG wParam,LONG lParam
DECLARE LONG DestroyWindow IN win32api LONG hwnd
*** константы win32api ***

m.hwndPB=CreateWindowEx(0,@m.PROGRESS_CLASS,@m.lpWindowName,BITOR(m.WS_CHILD,m.WS_VISIBLE),;
  10,70,380,19,this.hwnd,0,0,0)
SendMessage(m.hwndPB2,m.PBM_SETRANGE32,0,12)

m.ncurpos="№ текущей позиции"
...
SendMessage(m.hwndPB,m.PBM_SETPOS,m.ncurpos,0)
...

DestroyWindow(m.hwndPB)

CLEAR DLLS