DataGridView: как отобразить, что данные введены неправильно?

Imports System.Text.RegularExpressions
Public Class Form1
 
 
    Private _ErrTrianglePoints() As Point = New Point() {New Point(0, 0), New Point(0, 8), New Point(8, 0)}
 
    Public Sub DGVCellPaint(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
        If e.RowIndex = -1 Or e.ColumnIndex = -1 Then Return ' If Not e.ColumnIndex <> [index конкретного столбца] Then Return 
        If CInt(CType(sender, DataGridView)(e.ColumnIndex, e.RowIndex).Tag) = 1 Then
            e.Handled = True
            e.Paint(e.ClipBounds, DataGridViewPaintParts.All)
 
            'вариант 1
            'Dim points() As Point = New Point(2) {}
            'For i As Integer = 0 To 2
            '    points(i) = _ErrTrianglePoints(i) + e.CellBounds.Location
            'Next
 
            'вариант 2 с LINQ
            Dim points() As Point = (From p As Point In _ErrTrianglePoints Select p + e.CellBounds.Location).ToArray()
 
            e.Graphics.FillPolygon(Brushes.Red, points) 'фон
            e.Graphics.DrawPolygon(Pens.White, points) 'обводка
        End If
    End Sub
 
 
    'проверка содержания ячейки после изменения
    Public Sub DGVCellEndEdited(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        If e.RowIndex = -1 Or e.ColumnIndex = -1 Then Return
        Dim tmp As String = CType(sender, DataGridView)(e.ColumnIndex, e.RowIndex).Value
 
        If String.IsNullOrEmpty(tmp) Then
            CType(sender, DataGridView)(e.ColumnIndex, e.RowIndex).Tag = 0
            Return
        End If
 
        Dim m As Match = Regex.Match(tmp, "\b(\d{1,2})(?:[:\.,\s])(\d{1,2})\b") ' регулярка позволяет парсить значения вида 00:00, 00,00, 00.00, 00 00
 
        If m.Success Then
            Dim hh As Integer = Integer.Parse(m.Groups(1).Value)
            Dim mm As Integer = Integer.Parse(m.Groups(2).Value)
            If hh > 23 Or mm > 59 Then
                GoTo cellErr
            Else
                CType(sender, DataGridView)(e.ColumnIndex, e.RowIndex).Tag = 0
                CType(sender, DataGridView)(e.ColumnIndex, e.RowIndex).Value = String.Format("{0:00}:{1:00}", hh, mm) ' форматирование согласно требованиям 00:00
            End If
        Else
cellErr:    CType(sender, DataGridView)(e.ColumnIndex, e.RowIndex).Tag = 1 ' сведения об ошибке сохраняются в теге ячейки
        End If
    End Sub
 
 
End Class