assuming the picture is stored in picture1...

dim a as integer
dim b as integer

private sub command1_click()
form1.paintpicture picture1.picture, 0, 0, picture1.width, _
picture1.height, a, b, picture1.width, picture1.height, srccopy
a=a+picture1.width
if a > form1.width then a = 0: b = b + picture1.height
end sub

this will make it copy the picture from picture1 to the form in a different spot (a,b) everytime u click.