Public Class Form1
	Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
		Dim img As Bitmap = Bitmap.FromFile(My.Application.Info.DirectoryPath + _
"\terrain.png")
		img.SetResolution(96, 96)
		Dim 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, 513, 513))	', New Rectangle(0, 0, 
' img.Width, img.Height), GraphicsUnit.Pixel)
			g.DrawImageUnscaled(img, 0, 0)
		End Using
		PictureBox1.Image = bmp
 
		img = Image.FromFile(My.Application.Info.DirectoryPath + "\kz.png")
		img.SetResolution(96, 96)
		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, 513, 513))	', New Rectangle(0, 0, 
' img.Width, img.Height), GraphicsUnit.Pixel)
			g.DrawImageUnscaled(img, 0, 0)
		End Using
		PictureBox2.Image = bmp
	End Sub
End Class

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