'ProgressBarMessages

Public Const WM_USER As Long = &H400

'The PBM_SETRANGE message sets the minimum and 
'maximum values for a progress bar and redraws 
'the bar to reflect the new range.
'  wParam = 0
'  lParam =nMinRange Or (nMaxRange * &H10000)
'
'  nMinRange = Minimum range value specified 
'      in the lParam low word.
'      Default value is zero.
'
'  nMaxRange = Maximum range value specified 
'      in the lParam high word.
'      Default value is 100.
'
'Returns the previous range values if successful, or zero otherwise. The
'low-order word specifies the previous minimum value, and the high-order
'word specifies the previous maximum value.  
Public Const PBM_SETRANGE As Long = (WM_USER + 1)


'The PBM_SETPOS message sets the current position 
'for a progress bar and redraws the bar to reflect 
'the new position.
'  wParam = New position.
'  lParam = 0
'
'Returns the previous position.  
Public Const PBM_SETPOS As Long = (WM_USER + 2)


'The PBM_DELTAPOS message advances the current position 
'of a progress bar by a specified increment and redraws 
'the bar to reflect the new position.
'  wParam = Amount to advance the position.
'  lParam = 0
'
'Returns the previous position.  
Public Const PBM_DELTAPOS As Long = (WM_USER + 3)


'The PBM_SETSTEP message specifies the step increment 
'for a progress bar. The step increment is the amount 
'by which the progress bar increases its current position 
'whenever it receives a PBM_STEPIT message. By default,
'the step increment is set to 10.
'  wParam = New step increment.
'  lParam = 0
'
'Returns the previous step increment.  
Public Const PBM_SETSTEP As Long = (WM_USER + 4)


'The PBM_STEPIT message advances the current position 
'for a progress bar by the step increment and redraws the 
'bar to reflect the new position. An application sets the 
'step increment by sending the PBM_SETSTEP message.
'  wParam = 0
'  lParam = 0
'
'Returns the previous position.
'When the position exceeds the maximum range value, this 
'message resets the current position so that the progress 
'indicator starts over again from the beginning.  
Public Const PBM_STEPIT As Long = (WM_USER + 5)
  
'====================================
'IE3 and later...

'The PBM_SETRANGE32 message sets the range of a progress bar 
'control to a 32-bit value.
'  wParam = A 32-bit value that represents the low limit to 
' be set for the progress bar control.
'  lParam = A 32-bit value that represents the high limit to 
' be set for the progress bar control.
'
'Returns a DWORD that holds the previous 16-bit low limit 
'in its low word, and the previous 16-bit high limit in its 
'high word. If the previous ranges were 32-bit values, the 
'return value consists of the low words of both 32-bit limits.
'To retrieve the entire high and low 32-bit values, use the 
'PBM_GETRANGE message.  
Public Const PBM_SETRANGE32 As Long = (WM_USER + 6)

  
'The PBM_GETRANGE message retrieves information about the 
'current high and low limits of a given progress bar control.
'  wParam = Flag value specifying which limit value is to be 
' used as the message's return value. This parameter 
' can be one of the following values:
' Value  Meaning
' TRUE   Return the low limit.
' FALSE Return the high limit.
'  lParam = Address of a PBRANGE structure that is to be filled 
'with the high and low limits of the progress bar control.
'If this parameter is set to NULL, the control will 
'return only the limit specified by wParam.
'
'Returns an INT that represents the limit value specified by wParam.
'If lParam is not NULL, lParam must point to a PBRANGE structure
'that is to be filled with both limit values.  
Public Const PBM_GETRANGE As Long = (WM_USER + 7)

Public Type PPBRANGE
  iLow  As Integer
  iHigh As Integer
End Type

  
'The PBM_GETPOS message retrieves the current position 
'of the progress bar.
'  wParam = 0
'  lParam = 0
'Returns a UINT that represents the current position 
'of the progress bar.  
Public Const PBM_GETPOS As Long = (WM_USER + 8)

'ProgressBarStyles 
Public Const PROGRESS_CLASS As String = "msctls_progress32"  
  
'These are available only if the version of 
'comctl32.dll is greater than 4.70 (IE3 and later)
Public Const PBS_SMOOTH As Long = &H1    
Public Const PBS_VERTICAL As Long = &H4