)
      End If
   End If
   If (m_lAlpha &gt; 0) Then
   
      Dim lBlend As Long
      Dim bf As BLENDFUNCTION
      bf.BlendOp = AC_SRC_OVER
      bf.BlendFlags = 0
      bf.SourceConstantAlpha = m_lAlpha
      bf.AlphaFormat = 0
      CopyMemory lBlend, bf, 4
      AlphaBlend picNothing.hDC, _
         87, 1, m_tBI(0).bmiHeader.biWidth, m_tBI(0).bmiHeader.biHeight, _
         m_hDC(lIndexTo), _
         0, 0, m_tBI(0).bmiHeader.biWidth, m_tBI(0).bmiHeader.biHeight, _
         lBlend
   End If
   
   m_l