False
   End If
End Sub

Private Function nullTrim(ByVal sString As String) As String
Dim iPos As Long
Dim sT As String
   iPos = InStr(sString, vbNullChar)
   If (iPos &gt; 0) Then
      If (iPos = 1) Then
         sT = ""
      Else
         sT = Left(sString, iPos - 1)
      End If
   Else
      sT = sString
   End If
   nullTrim = Trim(sT)
End Function

Public Property Get PercentDone() As Single
   PercentDone = m_pPercentDone / 100000#
End Property

Public Sub Cancel()
   If (m_bOperationInProgress) T