For x As Integer = 0 To dgv.Columns.Count - 1
                For y As Integer = 0 To dgv.Rows.Count - 1
                    If x > e.ColumnIndex - 2 And x < e.ColumnIndex + 2 And y _
                      > e.RowIndex - 2 And y < e.RowIndex + 2 Then
                        dgv.Rows(y).Cells(x).Style.BackColor = Color.Black
                    Else
                        dgv.Rows(y).Cells(x).Style.BackColor = Color.White
                    End If
                Next
            Next
            dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = _
              Color.White