Imports Infragistics.Win
Imports Infragistics.Win.UltraWinListView
Private Sub ultraListView1_EditError(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinListView.EditErrorEventArgs) Handles ultraListView1.EditError
' Set the 'DisplayMessageBox' property to false so that
' the default MessageBox does not appear
e.DisplayMessageBox = False
' Show a MessageBox with some additional information about the error
Dim message As String = String.Format("The value '{0}' is not valid. Would you like to revert to the last valid value?", e.Editor.CurrentEditText)
Dim result As DialogResult = MessageBox.Show(message, "Invalid value entered", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
' If the user elected to revert to the original value,
' set the 'RestoreOriginalValue' property to true
If result = DialogResult.Yes Then
e.RestoreOriginalValue = True
e.StayInEditMode = False
Else
e.RestoreOriginalValue = False
e.StayInEditMode = True
End If
End Sub