*****Dialog.frm*****
frmProgress
pcxProgressBar
lblPercentage
lblProgress
lblCaption
Dim dPercentage As Double
Public Property Get Percentage() As Double
Public Property Let Percentage(ByVal dNewValue As Double)