Dim b As New Bitmap(793, 3366, _
  System.Drawing.Imaging.PixelFormat.Format24bppRgb)
Dim g As Graphics = Graphics.FromImage(b)
Dim X As Int16
Dim FI As String()
 
FI = System.IO.Directory.GetFiles("C:\Test\img")
For X = 0 To 2
   g.DrawImage(Bitmap.FromFile(FI(X)), X * 1122, 0)
Next
 
g.Dispose()
b.Save("C:\Test\Testimg.bmp")

I'm an idealist. I don't know where I'm going, but I'm on my way.
- Carl Sandburg