Public Sub DeleteRowFromGrid(ByVal dg As FlyGrid, ByVal obj As Object)
            Dim currentRow As Integer
            dg.BeginInit()

            Dim node As NodeBase = dg.Selected
            If Not node Is Nothing Then

               currentRow = node.Index
               Dim dr As DataRowView = CType(node.Value, DataRowView)
               If Not dr Is Nothing Then dr.Delete()
                        If TypeOf (obj) Is DataSet Then
                            DirectCast(obj, DataSet).AcceptChanges()
                        ElseIf TypeOf (obj) Is DataTable Then
                            DirectCast(obj, DataTable).AcceptChanges()
                        Else
                            Exit Sub
                        End If
                  End If
              dg.EndInit()

               Dim newFocused As Integer
              If currentRow  -1 And currentRow < dg.ActivePort.RowCount Then
                    newFocused = currentRow
                Else
                    newFocused = dg.ActivePort.RowCount - 1
                End If

                If dg.Rows.Items.Count > 0 Then dg.Selected = dg.ActivePort.Rows.Items(newFocused)
            End Try
        End Sub

[VB.Net]
  Private Function DeleteSelection(ByVal flyGrid As FlyGrid) As Boolean
    Dim result As Boolean = False
    flyGrid.BeginInit()
    Try
      For Each node As NodeBase In flyGrid.Rows.GetSelection()
        Dim row As DataRowView = CType(node.Value, DataRowView)
        If Not (row Is Nothing) Then
          row.Delete()
        End If
      Next
      result = True
    Finally
      flyGrid.EndInit()
    End Try
    Return result
  End Function

  Private Sub deleteSelectedBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deleteSelectedBtn.Click
    If (DeleteSelection(Me.flyGrid1)) Then
      'accept changes
      Dim dt As DataTable = CType(Me.flyGrid1.Rows.DataSource, System.Data.DataTable)
      If Not (dt Is Nothing) Then
        dt.AcceptChanges()
      End If
    End If
  End Sub

[VB]
'getting current row index
Dim currentRow = dg.Selected.Index;
' rows deletion procedure
'
' .....
'
' after deletion
Dim newFocused As Integer
If currentRow  -1 And currentRow < dg.ActivePort.RowCount Then
    newFocused = currentRow
Else
    newFocused = dg.ActivePort.RowCount - 1
End If
  
If dg.Rows.Items.Count > 0 Then
    dg.Selected = dg.ActivePort.Rows.Items(newFocused)            

[VB]
  Private Sub deleteSelectedBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deleteSelectedBtn.Click
    'getting current row index
    Dim currentRow As Integer = Me.dgParams.Selected.Index
    If (DeleteSelection(Me.dgParams)) Then
      'accept changes if deletion is succesfully finished
      Dim dt As DataTable = CType(Me.dgParams.Rows.DataSource, System.Data.DataTable)
      If Not (dt Is Nothing) Then
        dt.AcceptChanges()
      End If
      ' after deletion
      ' also you can get row count from data table
      Dim rowCount As Integer = Me.dgParams.ActivePort.RowCount
      If ((Me.dgParams.ActivePort.Rows.Options And RowsOptions.ShowAddNewRow)  0) Then
        rowCount = rowCount - 1
      End If

      Dim newFocused As Integer
      If currentRow  -1 And currentRow < rowCount Then
        newFocused = currentRow
      Else
        newFocused = rowCount - 1
      End If

      If Me.dgParams.Rows.Items.Count > 0 Then
        Me.dgParams.Selected = Me.dgParams.ActivePort.Rows.Items(newFocused)
      End If
    End If
  End Sub