User:Gerbrant/Tree and cat: VB source

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

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
 * 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: