mID = m_lId
   
   ' Wrap around every 4 billion items that
   ' get created :)
   If m_lId &gt; 2147483646 Then
      m_lId = -2147483647
   End If
   
End Property

Public Property Get NextColumnID() As Long
   
   ' Get the ID:
   m_lColID = m_lColID + 1
   NextColumnID = m_lColID
   
   ' Wrap around every 4 billion items that
   ' get created :)
   If m_lColID &gt; 2147483646 Then
      m_lColID = -2147483647
   End If
   
End Property


Public Property Get ObjectFromPtr(ByVal lPtr As Long) As Object
D