Sub Kacheln(ByRef ImageToModify As Image, ByVal KachelfaktorX As Short, ByVal _
  KachelfaktorY As Short)
		Dim OrginalImage As Image = ImageToModify
		MsgBox(OrginalImage.Size.ToString)
		Dim NewImage As Image = New Bitmap(ImageToModify.Width * KachelfaktorX, _
  ImageToModify.Height * KachelfaktorY)
		MsgBox(NewImage.Size.ToString)
		Dim objGRAP As Graphics = Graphics.FromImage(NewImage)
		Dim AktX, AktY As Short
		Dim PosX, PosY As Integer
		For AktX = 0 To KachelfaktorX - 1
			For AktY = 0 To KachelfaktorY - 1
				PosX = AktX * OrginalImage.Width
				PosY = AktY * OrginalImage.Height
				objGRAP.DrawImageUnscaled(OrginalImage, PosX, PosY)
			Next
		Next
		objGRAP.Dispose()
		ImageToModify = NewImage
	End Sub

Patrick Gr?schel
pgroe@web.de