Making a "stamp" picture function?

[Oafo]

How could I make a function that, where you click, it makes a "stamp" kind of thing and places the picture where you clicked? For example, let's say I wanted to make a collage of the same picture... so I start clicking all over the form, and where I clicked, it will leave the picture, even if it overlaps another one. I need to know how to do this without using a bunch of image controls; I just pick one picture and start clicking. BitBlt has something to do with it I'm sure. Thanks.

[sunnyl]

Option Explicit
 
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    If Button = 1 Then
        BitBlt Me.hDC, ScaleX(X, vbTwips, vbPixels), ScaleY(Y, vbTwips, vbPixels), Picture1.Width, Picture1.Height, Picture1.hDC, 0, 0, SRCCOPY
    End If
End Sub

Have a picturebox on your form with the picture in it.

[Lethal]

Or..

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.PaintPicture Picture1.Picture, X, Y
End Sub

[Oafo]

Oh my god, why didn't I know that (As I smack myself)? Brain fart I guess... thanks.