User:Gerbrant/Tree and cat: VB source
From Wikipedia, the free encyclopedia
This is a possible way to extract the hidden cat from the tree image on Steganography.
- Create a VB form.
- Paste the tree image.
- Resize the form if needed (the cat will go right of the tree).
- Set the form's ScaleMode property to vbPixels.
- 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
