
   If (lC &gt; 0) Then
      SetDIBColorTable m_hDC, 0, lC, tRGB(0)
   End If
   If lSrcWidth &lt; 0 Then lSrcWidth = m_tBI.bmiHeader.biWidth
   If lSrcHeight &lt; 0 Then lSrcHeight = m_tBI.bmiHeader.biHeight
   BitBlt m_hDC, 0, 0, lSrcWidth, lSrcHeight, lHDC, lSrcLeft, lSrcTop, eRop
    
End Sub


Public Sub PaintPicture( _
        ByVal lHDC As Long, _
        Optional ByVal lDestLeft As Long = 0, _
        Optional ByVal lDestTop As Long = 0, _
        Optional ByVal lDestWidth As Long = -1, _
        O