pinUpTime
End Property
Public Property Let SpinUpTime(ByVal value As Long)
   If Not (m_tP.nSpinUpTime = value) Then
      m_tP.nSpinUpTime = value
      m_bDirty = True
   End If
End Property

Public Property Get Retries() As Long
   Retries = m_tP.nAspiRetries
End Property
Public Property Let Retries(ByVal value As Long)
   If Not (m_tP.nAspiRetries = value) Then
      m_tP.nAspiRetries = value
      m_bDirty = True
   End If
End Property

Public Property Get DriveType() As ECDRipDriveType
   DriveType = 