ll probably still crash,
   ' but it will be because of the subclass, not the uncounted reference
End Property


Public Sub debugmsg(ByVal sMsg As String)
#If DEBUGMODE = 1 Then
   MsgBox sMsg
#Else
   Debug.Print sMsg
#End If
End Sub

''' &lt;summary&gt;
''' Returns whether the system is running XP (or above) or not.
''' &lt;/summary&gt;
''' &lt;returns&gt;&lt;c&gt;True&lt;/c&gt; if the system is running XP or above.&lt;/returns&gt;
Public Property Get isXp() As Boolean
   If Not (m_bInit) Then
      VerIn