Hola soy nuevo aqui... queria preguntar que estoy haciendo mal en mis clases o formulario. Esto es visualBasic 2008 express edition. Estoy practicando un ABM de un libreria... Me salio el alta y la baja ... lo que no me sale es la modificacion.

Podrian ayudarme ... aqui dejo mi codigo de la modificacion.



Public Class modificacion

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lis As New ListViewItem
Dim modif As New modificacion
For Each lis In ListView1.SelectedItems
mBiblio.modificarLibro(Convert.ToInt32(modif.TextB ox5.Text), modif.TextBox1.Text, Convert.ToInt32(modif.TextBox6.Text), modif.TextBox3.Text, modif.TextBox2.Text, modif.TextBox4.Text)
MsgBox("Se ah modificado el libro seleccionado")
Next
End Sub


Private Sub modificacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim lit As New ListViewItem
Dim lista As New List(Of Libro)
lista = mBiblio.getContenido
For i As Int32 = 0 To lista.Count - 1
lit = ListView1.Items.Add(lista.Item(i).anio)
lit.SubItems.Add(lista.Item(i).autor)
lit.SubItems.Add(lista.Item(i).codigo)
lit.SubItems.Add(lista.Item(i).editorial)
lit.SubItems.Add(lista.Item(i).genero)
lit.SubItems.Add(lista.Item(i).titulo)
Next
End Sub
End Class


alli es donde tengo el Formulario. Y ahora les paso la clase que es donde estan los metodos de Alta,Baja Y modificacion.

'en esta clase obtengo todo los contenidos y actualizaciones de los AMB. Incluyendo los metodos para los AMB

Public Class Biblioteca
Private contenidoBiblioteca As New List(Of Libro)
Public Sub agregarLibro(ByVal valor As Libro)
contenidoBiblioteca.Add(valor)
End Sub
Public Function getContenido() As List(Of Libro)
Return contenidoBiblioteca
End Function
Public Sub
eliminarLibro(ByVal valor As Int32)
For i As Int32 = 0 To contenidoBiblioteca.Count - 1
If contenidoBiblioteca(i).codigo = valor Then
contenidoBiblioteca.RemoveAt(i)
Exit For
End If
Next
End Sub


'aca es donde tengo el problema que no se si es por la logica o no se tal ves me falte algo... HELP

Public Sub modificarLibro(ByVal manio As Int32, ByVal mautor As String, ByVal mcodigo As Int32, ByVal meditorial As String, ByVal mgenero As String, ByVal mtitulo As String)
Dim modif As New modificacion
For i As Int32 = 0 To contenidoBiblioteca.Count - 1
If contenidoBiblioteca(i).anio <> manio Then
modif.TextBox5.Text = manio
End If
If contenidoBiblioteca(i).autor <> mautor Then
modif.TextBox1.Text = mautor
End If
If contenidoBiblioteca(i).genero <> mgenero Then
modif.TextBox2.Text = mgenero
End If
If contenidoBiblioteca(i).editorial <> meditorial Then
modif.TextBox3.Text = meditorial
End If
If contenidoBiblioteca(i).titulo <> mtitulo Then
modif.TextBox4.Text = mtitulo
End If
If contenidoBiblioteca(i).codigo <> mcodigo Then
modif.TextBox6.Text = mcodigo
End If
'Dim modif As New modificacion
'modif.TextBox5.Text = manio
'modif.TextBox1.Text = mautor
'modif.TextBox2.Text = mgenero
'modif.TextBox3.Text = meditorial
'modif.TextBox4.Text = mtitulo
'modif.TextBox6.Text = mcodigo
Next
End Sub
End Class


Muchas gracias por la ayuda!!