将5张相同大小的图片透明叠加再一起:
本例用到的控件:Check1,Check2...Check5 图片选取;
Picture1(0),Picture1(1)...Picture1(4)
Picture11 背景图片
Picture22

具体代码：
Private Sub Check1_Click()
 If Check1.Value = 1 Then
   Picture1(0).Picture = LoadPicture("pic\111.jpg")
   '合并前景图像和背景图像
    Picture22.Visible = True
    Picture22.Width = Picture11.Width
    Picture22.Height = Picture11.Height
    '合成后的图像和背景图保持同样大小
    Picture22.Picture = Picture11.Picture
    Picture22.PaintPicture Picture1(0).Picture, 0, 0, , , , , , , &H8800C6
 Else
    '清除合成图像中的前景图像
    Picture22.Cls
 End If
End Sub

这样就可以实现Check1的图片和背景图片叠加，但是不能实现第三张、第四张、张五张的图片在前面的基础上叠加.请问我这种方法对吗？要如何实现多次叠加呢？