Imports System.ComponentModel

Class MainWindow
　　Private Sub MainWindow_Loaded() Handles Me.Loaded
　　　　Spread.ItemsSource = {New TestItem With {.Text = "item"}}
　　　　'回避策：検証を明示的に実行します。
　　　　Spread.ValidateAll()
　　End Sub
End Class

Public Class TestItem
　　Implements INotifyDataErrorInfo

　　Public ReadOnly Property HasErrors As Boolean Implements INotifyDataErrorInfo.HasErrors
　　　　Get
　　　　　　Return True
　　　　End Get
　　End Property

　　Public Event ErrorsChanged As EventHandler(Of DataErrorsChangedEventArgs) Implements INotifyDataErrorInfo.ErrorsChanged

　　Public Property Text As String

　　Public Function GetErrors(propertyName As String) As IEnumerable Implements INotifyDataErrorInfo.GetErrors
　　　　If propertyName = NameOf(Text) Then
　　　　　　Return {"Test error"}
　　　　End If
　　　　Return Nothing
　　End Function
End Class