ileName
End Property
Public Property Get AlphaLogoDownId() As Long
   AlphaLogoDownId = m_lAlphaLogoDownId
End Property
Public Property Let AlphaLogoDownId(ByVal lId As Long)
   m_lAlphaLogoDownId = lId
End Property
Public Property Get AlphaLogoDownFileName() As String
   AlphaLogoDownFileName = m_sAlphaLogoDownFileName
End Property
Public Property Let AlphaLogoDownFileName(ByVal sFileName As String)
   m_sAlphaLogoDownFileName = sFileName
End Property

Private Sub RGBToHSL( _
      ByVal r As Long, ByVal g