Dim x1, x2, y1, y2 As Integer
        Dim puffer As Integer = 7
 
        If e.ColumnIndex - puffer >= 0 Then : x1 = e.ColumnIndex - puffer
        Else : x1 = 0
        End If
 
        If e.ColumnIndex + puffer <= dgv.ColumnCount - 1 Then : x2 = _
          e.ColumnIndex + puffer
        Else : x2 = dgv.ColumnCount - 1
        End If
 
        If e.RowIndex - puffer >= 0 Then : y1 = e.RowIndex - puffer
        Else : y1 = 0
        End If
 
        If e.RowIndex + puffer <= dgv.RowCount - 1 Then : y2 = e.RowIndex + _
          puffer
        Else : y2 = dgv.RowCount - 1
        End If
 
 
        If Not e.ColumnIndex = -1 And Not e.RowIndex = -1 Then
 
            For x As Integer = x1 To x2
                For y As Integer = y1 To y2
                    If x >= e.ColumnIndex - 1 And x <= e.ColumnIndex + 1 And _
                      y >= e.RowIndex - 1 And y <= e.RowIndex + 1 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
 
        End If