Dim tmp As Bitmap '(dein Bild also tiff)
Dim m_GUID As Guid = tmp.FrameDimensionsList(0)
Dim m_Dimension As New Imaging.FrameDimension(m_GUID)
Dim m_Count As Integer = tmp.GetFrameCount(m_Dimension) ' Gibt die anzahl der 
' Frames zurück
 
For x As Integer = 0 To m_Count -1
  tmp.SelectActiveFrame(m_Dimension,x) ' Selektiert den Frame mit dem Index x
  'wenn du jetzt z.B. die Image Eigenschaft einer Picturebox auf den Wert tmp 
  ' setzt ist dort der aktuelle Frame:
  ImageList1.Images.Add("TiffFrame" & x , tmp)
  ListView1.Items.Add("Frame " & x + 1, "TiffFrame" & x)
 
Next x