ft, lSrcTop, lDestWidth, lDestHeight, _
      lBlend)
   If (lR = 0) Then
      Debug.Print ApiError(Err.LastDllError)
   End If
End Sub
Public Sub CodeAlphaBlend( _
      cDst As cAlphaDibSection, _
      cSrc As cAlphaDibSection, _
      Optional ByVal lDestLeft As Long = 0, _
      Optional ByVal lDestTop As Long = 0, _
      Optional ByVal lDestWidth As Long = -1, _
      Optional ByVal lDestHeight As Long = -1, _
      Optional ByVal SourceConstantAlpha As Long _
   )
   Dim tSASrc As SAFEARRAY2D
   Di