End Property
Public Property Get Height() As Long
   Height = m_cAlphaLogo.Height
End Property
Public Sub LoadImages()
   '
   Set m_cMouseTrack = New cMouseTrack
   m_cMouseTrack.AttachMouseTracking m_objDraw
   Set m_cAlphaLogo = New cAlphaDibSection
   Set m_cAlphaLogoDown = New cAlphaDibSection
   Dim hBmp As Long
   If (m_hInst = 0) Then
      
      hBmp = LoadImageString(App.hInstance, m_sAlphaLogoFileName, 0, 0, 0,
       LR_LOADFROMFILE)
      m_cAlphaLogo.CreateFromHBitmap hBmp
      DeleteObject 