[VB6] - the Graphics Class

[joaquim]

hehehe
only vb2010 have these class!?! naaaaaaaaaaaaaa.
now i'm building a nice class that i want to share.
for now these class do:
1 - catch the image from any(i belive) device\control that have hdc property(but 100% sure on forms, pictureboxes and usercontrols);
2 - have nice effects:
- BackColor;
- Transparent(you can choose the transparent color);
- Mirror;
- BlackAndWhite;
- changing colors;
- in time i will put the Rotation and more nice effects. accept advices;
3 - you can draw it in any(i belive) device\control that have hdc property(but 100% sure on forms, pictureboxes and usercontrols). you can draw it on any position you like
(the image size, i belive, is showed in pixels)
and heres how use it:

Dim ImageData As Graphics

Private Sub Command1_Click()
    Set ImageData = New Graphics
    ImageData.GetImageData Picture2
    ImageData.BackColor = vbBlue
    ImageData.Transparent = True
    ImageData.Mirror = HorizontalVertical
    ImageData.BlackAndWhite = True
    ImageData.DrawImageData Picture1, 40, 40 'the 40 and 40 is for tell the position;)
    Set ImageData = Nothing
End Sub

now the vb6 gamer programmers don't need use advanced stuff or API functions. because these class helps very much
(class updated: 18/06/2012)