[VB6] Scrivere con un preciso colore all'interno di una immagine

[c-enrico]

questo codice non funziona sulla immagine che ho caricato
Picture1.Picture = LoadPicture(App.Path + "\IMG\" & QP)
ma funziona sulla Picture2 che è senza immagine