hola,
con el evento click no funciona,bueno, eso creo, aki esta el kodigo ke he escrito dentro del evento click.
    Dim I As Integer
    For I = 1 To Me!LISTA.ListCount
        If Me!LISTA.Selected(I) = True Then
            Me!KOD1 = Me!LISTA.Column(0, I)
            Me!DM1 = Me!LISTA.Column(1, I)
            Me!BUR1 = Me!LISTA.Column(2, I)
        End If
    Next I
donde lista es el listbox,y KOD1,DM1,BUR1 son los textbox.Si pongo el mismo codigo en el evento click de un boton si ke funciona, pero yo kiero ke se rellenen los textbox al seleccionar en la lista.
gracias de antemano por tu ayuda. 
 
  