gdi32 API og Device Context problemer

Jeg har stirret mig totalt blind på dette problem.
Hvorfor virker dette ikke:

    Dim lBitmap As Long, lBitmap2 As Long
    Dim lTempDC As Long, lTempDC2 As Long
    Dim i As Long

     
    If Not GetStretchBltMode(frmMain.hdc) = HALFTONE Then Call SetStretchBltMode(frmMain.hdc, HALFTONE)
    i = RGB(255, 255, 255)
   
    lTempDC = CreateCompatibleDC(frmMain.hdc)
    lBitmap = frmMain.picSrc.Picture
    lBitmap = SelectObject(lTempDC, lBitmap)
    lTempDC2 = CreateCompatibleDC(frmMain.hdc)
    lBitmap2 = frmMain.picSrc.Picture
    lBitmap2 = SelectObject(lTempDC2, lBitmap)
   
    'krymper fra 30x30 til 20x20
    Call StretchBlt(lTempDC, 0, 0, 20, 20, frmMain.picSrc.hdc, 0, 0, 30, 30, vbSrcCopy)
   
    'flip vertikalt
    Call StretchBlt(lTempDC2, 0, 20, 20, -20, lTempDC, 0, 0, 20, 20, vbSrcCopy)
   
    'tegn transparent (hvid er maske)
    Call GdiTransparentBlt(frmMain.hdc, 200, 100, 20, 20, lTempDC2, 0, 0, 20, 20, i)
   
    frmMain.Refresh


-Hvis der kun er 2 'led' er der ingen problemer. Jeg kan sagtens tegne lTempDC på formen -uanset hvilken funktion det drejer sig om.

MVH tjacob