Hi,Friends i want to slice an image in multiple parts.Like http://www.html-kit.com/e/is.cgi.

Dim cellWidth As Single = CType(wholeImage.Width / columns, Single)

Dim cellHeight As Single = CType(wholeImage.Height / rows, Single)

' Create an array of RectangleF to hold the RectangleFs

' that define parts (cells) of the wholeImage.

Dim rectangleFs((rows * columns) - 1) As Drawing.RectangleF

' Fill RectangleFs array with RectangleF objects.

Dim currentRow As Single = 0

Dim currentColumn As Single = 0

Dim rectangleFIndex As Integer = 0

For currentRow = 0 To rows - 1

For currentColumn = 0 To columns - 1Dim newRectangleF As New Drawing.RectangleF()

newRectangleF.X = currentColumn * cellWidth

newRectangleF.Y = currentRow * cellHeight

newRectangleF.Width = cellWidth

newRectangleF.Height = cellHeight

rectangleFs(rectangleFIndex) = newRectangleF

rectangleFIndex += 1

Next

Next

' Create an array of Images to contain the images

' that will be created from the wholeImage.

Dim images(rectangleFs.GetLength(0)) As Image

' Fill images array with Images.

Dim i As Integer = 0

For i = 0 To rectangleFs.GetUpperBound(0)

Dim newBitMap As New Drawing.Bitmap(CType(cellWidth, Integer), _

CType(cellHeight, Integer))

Dim bitMapGraphics As Drawing.Graphics = Graphics.FromImage(newBitMap)

bitMapGraphics.Clear(Color.Blue)

bitMapGraphics.DrawImage(wholeImage, newBitMap.GetBounds(GraphicsUnit.Pixel), _

rectangleFs(i), GraphicsUnit.Pixel)

images(i) = newBitMap

' wholeImage.Save("D:/Temp/" + i.ToString() + ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

Next

Return images

End Function

In this Function WholeImage is an image to be Splitted as System.Drawing.Image

integer rows & columns are into how many rows & cols to split the image.

May this helps you

Thanks

Jignesh