
   End If
End Sub

Private Sub Clear()
   '
   If Not (m_hWnd = 0) Then
      SendMessageByLong m_hWnd, LB_RESETCONTENT, 0, 0
      SendMessageByLong m_hWnd, LB_SETCOLUMNWIDTH, m_lIconWidth + 4, 0
   End If
   ' Set last added item to -1:
   m_lNewItem = -1
   '
End Sub

Public Property Get Filename() As String
   Filename = m_sFileName
End Property


Public Property Let Filename(ByVal sFileName As String)
   If Not (StrComp(sFileName, m_sFileName) = 0) Then
      
      m_sFileName = sFileName
      If No