Código:
Private Sub Command4_Click()
For j = 0 To i
If Text2 = List1.List(j) Then
List2.AddItem Text2
List1.RemoveItem (j)
List3.AddItem j
Else
MsgBox "no hay valores a eliminar", 16, "alto"
End If
Next
ne = ""
End Sub
este lo que hace el programa es que entre 5 numeros y eliminar por los datos que pongas como ven en la imagen , este cuando pongo un numero que no va me aparece el msgbox las veces que e metido datos y si pongo el next arriba del else me pone if sin for .a parte de eso jeje si me pudieran ayudar mmm de hecho creo que es la solucion del problema porque si le pongo un epacio en blanco me pone un error en remove item pero creo que si se arregla lo del else ese problema se solucionara
espero me puedan ayudar...
por si acaso aqui esta el programa si le quieren dar uan checada el error esta en el eliminar por dato nota dice examen fallido porque era un examen que no pase usando c++ puesto que ahora lo hare en visual para mayor facilidad
http://www.badongo.com/file/24260721