Como eliminar varios registros seleccionados a la vez de un MSFlexGrid

[fhuaylla]

Hola tengo un problema y no tengo idea como resolverlo estoy buscando como eliminar varias filas seleccionadas de un msflexgrid, tengo una rutina el cual me sirve bien cuando selecciono uno a la vez:



Private Sub EliminarFila_Click()

On Error Resume Next
Dim FilaErease, FilaSeleccionada As Integer
FilaSeleccionada = MSFlexGrid2.Row
FilaErease = FilaSeleccionada
If MSFlexGrid2.Rows <= 2 Then
Answ = MsgBox("La cantidad de Datos a Exportar" + Chr(13) + _
"Como minimo es 1 ", 16, "Geologia")
MSFlexGrid2.SetFocus
Else
Dim D_0 As String, D_1 As String
Dim D_2 As String, D_3 As String
Dim D_4 As String, D_5 As String
Dim D_6 As String
D_0 = MSFlexGrid1.TextMatrix(FilaSeleccionada, 0)
D_1 = MSFlexGrid1.TextMatrix(FilaSeleccionada, 1)
D_2 = MSFlexGrid1.TextMatrix(FilaSeleccionada, 2)
D_3 = MSFlexGrid1.TextMatrix(FilaSeleccionada, 3)
D_4 = MSFlexGrid1.TextMatrix(FilaSeleccionada, 4)
D_5 = MSFlexGrid1.TextMatrix(FilaSeleccionada, 5)
D_6 = MSFlexGrid1.TextMatrix(FilaSeleccionada, 6)
If FilaSeleccionada = (MSFlexGrid1.Rows - 1) And MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = "Promedio" Then
Answ = MsgBox("Verifique el registro a Eliminar" + Chr(13) + _
"Selecciono la fila de Promedios", 16, "Error")
End If
Answ = MsgBox("Verifique los datos de este registro :" + Chr(13) + _
Chr(13) + _
"Muestreo : " + Trim(D_0) + Chr(13) + _
"Ancho : " + (Format(D_1, "##0.00")) + Chr(13) + _
"Datos : " + Format(D_2, "##0.0") + ", " + Format(D_3, "##0.00") + _
", " + Format(D_4, "##0.00") + ", " + Format(D_5, "##0.00") + ", " + Format(D_6, "##0.00") + Chr(13) + _
Chr(13) + _
"Desea eliminarlo?", 36, "Geologia")
If Answ = 6 Then
MSFlexGrid1.RemoveItem FilaSeleccionada
Dim Del_Row As Integer
If MSFlexGrid1.TextMatrix((MSFlexGrid1.Rows - 1), 0) = "Promedio" Then
Del_Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.RemoveItem Del_Row
Promedios ' Ingresa el promedio de las leyes actualizando la fila eliminada
End If
Else
Exit Sub
End If
End If
CmdPasar_Click
MSFlexGrid2.FixedRows = 1

End Sub


Como podria seleccionar varias filas y eliminarlas a la ves espero su ayuda gracias por su atencion.