Private Sub dgv_CellMouseEnter(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellMouseEnter
 
        Dim x As Integer
        Dim y As Integer
 
        If e.RowIndex > 0 And e.RowIndex < dgv.Rows.Count - 1 And _
          e.ColumnIndex > 0 And e.ColumnIndex < dgv.Columns.Count - 1 Then
 
            For x = e.ColumnIndex - 1 To e.ColumnIndex + 1 Step 1
 
                For y = e.RowIndex - 1 To e.RowIndex + 1 Step 1
 
                    dgv.Rows(y).Cells(x).Style.BackColor = Color.Black
 
                Next
 
            Next
 
        End If
 
 
    End Sub
 
 
    Private Sub dgv_CellMouseLeave(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellMouseLeave
 
        Dim x As Integer
        Dim y As Integer
 
        If e.RowIndex > 0 And e.RowIndex < dgv.Rows.Count - 1 And _
          e.ColumnIndex > 0 And e.ColumnIndex < dgv.Columns.Count - 1 Then
 
            For x = e.ColumnIndex - 1 To e.ColumnIndex + 1 Step 1
 
                For y = e.RowIndex - 1 To e.RowIndex + 1 Step 1
 
                    dgv.Rows(y).Cells(x).Style.BackColor = Color.White
 
                Next
 
            Next
 
        End If
 
    End Sub