 rgb colour:
Public Const CLR_NONE = -1

    
' Private variables
Private m_bIsXp As Boolean
Private m_bIsNt As Boolean
Private m_bInit As Boolean

''' &lt;summary&gt;
''' Returns the class name for the Window with the
''' specified handle.
''' &lt;/summary&gt;
''' &lt;param name="hWnd"&gt;Window handle&lt;/param&gt;
''' &lt;returns&gt;Class name&lt;/returns&gt;
Public Function WindowClassName(ByVal hwnd As Long) As String
Dim szBuf As String
Dim lR As Long
   szBuf = String$(260, 0)
   lR = GetClassName(hw