Partial Class DemoPartial
Private _Name As String
Property Name() As String
Get
	Return _Name
End Get
Set(ByVal value As String)
Dim good As Boolean = True
OnNameValidation(good)
If Not good Then
	Exit Property
End If
_Name = value
OnNameChanged()
End Set
End Property

' Definice zhlav sten metody.
Partial Private Sub OnNameChanged()
End Sub

' Definice zhlav sten metody.
Partial Private Sub OnNameValidation(ByVal goodValidation As Boolean)
End Sub
End Class
