User:Gerbrant/Tree and cat: VB source

This is a possible way to extract the hidden cat from the tree image on Steganography.

1. Create a VB form.
2. Paste the tree image.
3. Resize the form if needed (the cat will go right of the tree).
4. Set the form's ScaleMode property to vbPixels.
5. Make sure the form contains the following code:

Option Explicit

Private Sub Form_Paint()
Dim X As Long, Y As Long, C As Long
For Y = 0 To 199
For X = 0 To 199
    PSet (X + 200, Y), 85 * (Point(X, Y) And &H30303)
Next X, Y
End Sub