, m_tR.Left, m_tR.Top,
                   lConstantAlpha:=192
               End If
            End If
         End If
      End If
      m_objDraw.Refresh
   End If
End Sub
Public Sub Colourise(ByVal hue As Single)
   
   If Not (m_cAlphaLogo Is Nothing) Then
      Dim tImage As SAFEARRAY2D
      Dim bImage() As Byte
      
      With tImage
         .cbElements = 1
         .cDims = 2
         .Bounds(0).lLbound = 0
         .Bounds(0).cElements = m_cAlphaLogo.Height
         .Bounds(1).lLbound = 0
      