Public Class Form1
	Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
		Dim img As Image = Image.FromFile(My.Application.Info.DirectoryPath + _
"\terrain.png")
		Dim bmp As New Bitmap(512, 512)
		Using g As Graphics = Graphics.FromImage(bmp)
			g.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor
			g.SmoothingMode = Drawing2D.SmoothingMode.None
			'g.DrawImage(img, New Rectangle(0, 0, 512, 512), New Rectangle(0, 0, 
' img.Width, img.Height), GraphicsUnit.Pixel)
			g.DrawImageUnscaled(img, 0, 0)
		End Using
		PictureBox1.Image = bmp
		PictureBox2.Image = img
 
		img = Image.FromFile(My.Application.Info.DirectoryPath + "\kz.png")
		bmp = New Bitmap(512, 512)
		Using g As Graphics = Graphics.FromImage(bmp)
			g.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor
			g.SmoothingMode = Drawing2D.SmoothingMode.None
			g.DrawImage(img, New Rectangle(0, 0, 512, 512), New Rectangle(0, 0, _
  img.Width, img.Height), GraphicsUnit.Pixel)
			g.DrawImageUnscaled(img, 0, 0)
		End Using
	End Sub
End Class

Ich danke hiermit allen die mir bei meinen Fragen und Problemen helfen bzw geholfen haben. ^^