サンプルコードのShowImageメソッドに余計な部分がありました。
画像フレームの取得と表示を、一つのメソッドで行っていたなごりです。
下記のコードに差し替え試してください。

Private Sub ShowImage(ByVal fileName As String)
        Dim img As Image = Image.FromFile(STR_FILE_PATH)
        Dim fd As System.Drawing.Imaging.FrameDimension = New System.Drawing.Imaging.FrameDimension(img.FrameDimensionsList(0))
        Dim count As Integer = img.GetFrameCount(fd)

        For i As Integer = 0 To count - 1
            img.SelectActiveFrame(fd, i)
            Dim imgClone As Image = CType(img.Clone(), Image)
            listImgs.Add(imgClone)
            'imgClone.Dispose()
        Next

        img.Dispose()
End Sub