Pullin out my hair... image from mem, DC

[invitro]

I desided not to use that code, instead I just did this

Private Sub loadBitImage()
    DoEvents
    Dim myPicture As New StdPicture
    Set myPicture = LoadPicture(appPath & "1.tmp")
    
    picMain.PaintPicture myPicture, 1, 1
    

    
End Sub

For all ya ppl who like examples