如何在程序中加入进度条？

Option:   
Option Public   

声明部分(Declaration)   

Declare Public Function NEMProgressBegin Lib "nnotesws.dll" ( Byval wFlags As Integer ) As Long 
Declare Public Sub NEMProgressDeltaPos Lib "nnotesws.dll" ( Byval hwnd As Long, Byval dwIncrement As Long ) 
Declare Public Sub NEMProgressEnd Lib "nnotesws.dll" ( Byval hwnd As Long ) 
Declare Public Sub NEMProgressSetBarPos Lib "nnotesws.dll" ( Byval hwnd As Long, Byval dwPos As Long) 
Declare Public Sub NEMProgressSetBarRange Lib "nnotesws.dll" ( Byval hwnd As Long, Byval dwMax As Long ) 
Declare Public Sub NEMProgressSetText Lib "nnotesws.dll" ( Byval hwnd As Long, Byval pcszLine1 As Lmbcs String, Byval pcszLine2 As Lmbcs String) 

Const NPB_TWOLINE = 3 
Const NPB_ONELINE = 2 

Public Class LNProgressbar 

hwnd As Long 

Sub New(SecondLineVisible As Integer) 
   'Set-up the progress bar on the screen  
If SecondLineVisible Then 
hwnd = NEMProgressBegin(NPB_TWOLINE)  
Else 
hwnd = NEMProgressBegin(NPB_ONELINE) 
End If 
End Sub 

Sub SetText(FirstLineText As String,SecondLineText As String) 
   'Display the text in progress bar  
NemProgressSetText hwnd, FirstLineTExt,SecondLineText  
End Sub 

Sub SetProgressPos(Progresspos As Long) 
NEMProgressSetBarPos hwnd, ProgressPos  
End Sub 

Sub SetProgressRange(ProgressMaxElements As Long) 
   'Set-up the max elements in the progress bar, if you have  
   'a list with 230 elements then set the MAX to 230 elements. 
   'For every element you proceed increase the SetProgressPos  
   'by one to reached 230  

NEMProgressSetBarRange hwnd, ProgressMaxElements 

End Sub 

Sub DeltaPos(DPos As Long) 
   ' This function adds the number in DPOS to the current ProgressPos 
NEMProgressDeltaPos hwnd, DPos 
End Sub  

Sub Delete 
   'Terminate the progress bar on the screen  
NEMProgressEnd hwnd 
End Sub 

End Class 

操作按钮的Click事件:   
Sub Click(Source As Button) 
Dim pb As New LNProgressBar(True) 
Dim i As Long 

Call pb.SetText("这是一个测试","来自http://www.flycat.net") 

'set the range to 10000 elements 
Call pb.SetProgressRange(10000) 

For i=1 To 10000 
' process the elements  
Call pb.SetProgressPos(i) 
Next 

'Terminate the progress bar 
Delete pb 
End Sub