Dim img As Image = Image.FromFile("C:\Documents and Settings\Administrator\Desktop\00708A0E.TIF")
Dim ms As MemoryStream = Nothing
Dim returnImage As Image = Image.FromFile("C:\Documents and Settings\Administrator\Desktop\00708A0E.TIF")
Try
ms = New MemoryStream()
Dim ID As Guid = img.FrameDimensionsList(0)
Dim fd As New FrameDimension(ID)
Dim Count As Integer = img.GetFrameCount(fd)
If I < Count Then
img.SelectActiveFrame(fd, I)
img.Save(ms, ImageFormat.Bmp)
returnImage = Image.FromStream(ms)
ImageViewer.Image = returnImage
Else
Exit Sub
End If
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Error")
Finally
ms.Close()
I += 1
End Try