【求助】这段vb的拼接图片程序为什么会有问题？

[建模vb]

有19张图片000.bmp-018.bmp，知道这19张图片的顺序，例如“3 5 1 0 8 15 ...”，然后怎么样能够按顺序将图片拼接起来？
因为我是vb新手，所以下面的程序只能将000.bmp-004.bmp拼接，但还是出问题了，如果能够将000.bmp-018.bmp按例如“3 5 1 0 8 15 ...”顺序拼接当然最好，如果不行，能不能先帮忙把000.bmp-004.bmp拼接程序改对啊？

Private Sub Form_Load()

Dim J As Long
Me.ScaleMode = 3
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
Picture2.AutoRedraw = True
Picture1.AutoRedraw = True
Picture1.AutoSize = True
Picture1.BorderStyle = 0
Picture2.BorderStyle = 0
Set Picture1.Picture = LoadPicture("C:\Users\DELL\Desktop\000.bmp")
'Picture1.PaintPicture Picture2.PaintPicture, 0, 0
Picture2.Width = Picture1.ScaleWidth * 5
Picture2.Height = Picture1.ScaleHeight
For J = 0 To 4
Set Picture1.Picture = LoadPicture("C:\Users\DELL\Desktop\" & "00" & CStr(J) & ".bmp")
Picture2.PaintPicture Picture1.Picture, J * Picture1.ScaleWidth, Picture1.ScaleHeight
Next


SavePicture Picture2.Image, "C:\Users\DELL\Desktop\All.bmp"
End Sub
运行调试没问题，就是最后停不了了，是需要运行的时间太长么？而且已经有all.bmp,但是打开之后什么也没有，为什么呢？

[zdingyun]

见：http://zhidao.baidu.com/question/1667348479424013067.html?oldq=1处的回复和工程实例。

[熊孩子开学喽]

停不下来什么意思? 程序死掉了么? 调试运行的时候同时按ctal+break键看停在那一句语句上面