Hola mi problema es como hacer para que se eliminae la columna de listview que está seleccionado. Que error hay.


Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)
On Error GoTo ErrorEliminar
If Button = 2 Then
ListView1.ListItems.Remove j.index
End If
ErrorElimina:
If Err.Number <> 0 Then
Resume Next
End If
End Sub

para quitar una columna seria el siguiente code desde click

Código:

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.ColumnHeaders.Remove (ColumnHeader.Index)
End Sub