一个TIF文件包含多个文件，如何显示每一张图片

   Dim iPage As Integer   'TIF   的页号
    Dim img As System.Drawing.Image
    Dim fd As System.Drawing.Imaging.FrameDimension
    Dim Page = 1     '你要看的TIF页

 

 Dim tifFileName As String = "D:/tif/mulFormat.tif"

        img = System.Drawing.Image.FromFile(tifFileName)
        fd = New System.Drawing.Imaging.FrameDimension(img.FrameDimensionsList(0))

        iPage = img.GetFrameCount(fd)
        Me.Label1.Text = "共 " & iPage & "页"
        img.SelectActiveFrame(fd, Page - 1)

        '显示  
        PictureBox1.Image = img