Private Sub Form_Load()
    With Picture1
        .Left = 0
        .Top = 0
        .AutoSize = True
        .AutoRedraw = True
        .Appearance = 0
        .BorderStyle = 0
        .ScaleMode = vbPixels
        .Picture = LoadPicture("C:\Hallo.jpg")
    End With
End Sub
 
Private Sub Command1_Click()
    For px = 1 To Picture1.Width
        For py = 1 To Picture1.Height
            If Picture1.Point(px, py) = &H80000005 Then
                Picture1.PSet (px, py), &HFF&
                DoEvents
            End If
        Next
    Next
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...