Public Class Form1  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Using bmp As New Bitmap("C:\W-Intern\Test.tif"), bm As New Bitmap( _
        bmp.Width \ 2, bmp.Height), _
              g As Graphics = Graphics.FromImage(bm)
            g.DrawImage(bmp, New Rectangle(0, 0, bm.Width, bm.Height), 0, 0, _
              bm.Width, bm.Height, GraphicsUnit.Pixel)
            bm.Save("C:\W-Intern\Test1.tif", _
            System.Drawing.Imaging.ImageFormat.Tiff)
            g.DrawImage(bmp, New Rectangle(0, 0, bm.Width, bm.Height), _
            bm.Width, 0, bm.Width, bm.Height, GraphicsUnit.Pixel)
            bm.Save("C:\W-Intern\Test2.tif", _
            System.Drawing.Imaging.ImageFormat.Tiff)
        End Using
    End Sub
End Class