Private Sub Picture2_MouseDown (button is an integer, Shift is an integer, X is a single, Y is a single)

ox = X: oy = Y

Picture 2. Zod 0

End joint

Private subpicture2 _ mousemove (button is an integer, Shift is an integer, x is a Single, y is a Single)

If Button = 1, Picture2. Move picture 2. Left+X-ox, picture 2. Top + Y - oy

End joint

Private subpicture2 _ mouseup (Button is an integer, Shift is an integer, X is a Single, Y is a Single).

lx = Picture 1。 Figure 2 on the left. Width/2

rx = Picture 1。 Left+picture 1. Width picture 2. Width/2

ty = Picture 1。 Top picture 2. Height/2

By = Picture 1。 Top+picture 1. Height-picture 2. Height/2

If picture 2. Left & gtlx and picture 2. Left & lt receives sum image 2. Top> Taihe picture 2. Top< By then, Picture 2. Move the picture 1. Left, picture 1 top

End joint