Imports System.Drawing

Module Module1

    Sub Main()

        Dim img As New List(Of Image)

        img.Add(Image.FromFile("D:\Old\_old\D\5265847638_525279bf46[1].jpg"))
        img.Add(Image.FromFile("D:\Old\_old\D\5265847638_525279bf46[1].jpg"))
        img.Add(Image.FromFile("D:\Old\_old\D\5265847638_525279bf46[1].jpg"))

        Dim w = img(0).Width
        Dim h = img(0).Height

        Dim i As New Bitmap(w, h * img.Count)

        Dim g As Graphics = Graphics.FromImage(i)

        For k = 0 To img.Count - 1

            g.DrawImage(img(k), 0, k * h, w, h)

        Next

        i.Save("D:\Old\_old\D\a.jpg", Imaging.ImageFormat.Jpeg)

        g.Dispose()

    End Sub

End Module