用C API在Notes中实现进度条

在Notes  的C/S  编程中，经常需要对一个集合中的对象进行遍历处理，这时如果能显示一个进度条指示当前处理进程，就比较直观形象，客户界面也比较友好。    
 1、声明API函数 
  '声明API函数 
  Declare  Function  NEMProgressBegin  Lib  "nnotesws.dll" 
            (  Byval  wFlags  As  Integer  )  As  Long 
  Declare  Sub  NEMProgressEnd  Lib  "nnotesws.dll" 
            (  Byval  hwnd  As  Long  ) 
  Declare  Sub  NEMProgressSetBarPos  Lib  "nnotesws.dll" 
            (  Byval  hwnd  As  Long,  Byval  dwPos  As  Long) 
  Declare  Sub  NEMProgressSetBarRange  Lib  "nnotesws.dll"
          (  Byval  hwnd  As  Long,  Byval  dwMax  As  Long  ) 
  Declare  Sub  NEMProgressSetText  Lib  "nnotesws.dll" 
          (  Byval  hwnd  As  Long,  Byval  pcszLine1  As  String, 
              Byval  pcszLine2  As  String  ) 
   
2、首先是自定义一个类  ProgressBar  。这样以后的调用比较方便。  
  '定义  ProgressBar  类  
  Class  ProgressBar 
   
  Private  hwnd  As  Long 
   
  '  构造类 
  Sub  New  (BarRange  As  Long)   
  On  Error  Goto  ErrorHandler 
   
  '  创建进度条 
  Me.hwnd  =  NEMProgressBegin  (NPB_TWOLINE)&n