VB如何将两个图片合并成一个（第一个在上面，第二个跟在下面？）

Private Sub Form_Load()
Picture1.Move 0, 0
Picture2.Move 0, Picture1.Height
w& = IIf(Picture1.Width > Picture2.Width, Picture1.Width, Picture2.Width)
Picture3.Move w, 0, w, Picture2.Top + Picture2.Height
Picture3.AutoRedraw = True
Me.Width = w * 2 + 150
Me.Height = Picture3.Height + 525
'以上代码与你无关
Call aaaaa
End Sub

Sub aaaaa()
Picture3.PaintPicture Picture1.Picture, 0, 0
Picture3.PaintPicture Picture2.Picture, 0, Picture1.ScaleHeight
SavePicture Picture3.Image, "c:\tmp.bmp"
End Sub

三个PictureBox，默认命名
分别在Picture1和Picture2中载入两幅图片，最好都先设置AutoSize为True
粘贴以上代码，运行后即将两幅图上下合并后保存到c:\tmp.bmp中

你是想把两个图片拼成一张图片吧？这样的话VB本身应该不行，要用组件

你可以看下ASPJpeg组件的相关介绍

你指的是怎么合并的？需要切换吗