Private Sub BindViewModelProperties()
    With BindingManager
        .BindPropertyPath ViewModel, "Validation.Message", Me.ValidationMessage1
        .BindPropertyPath ViewModel, "Validation.IsValid", Me.ValidationMessage1, "Visible", Converter:=InverseBooleanConverter.Default
        .BindPropertyPath ViewModel, "Instructions", Me.InstructionsLabel

        .BindPropertyPath ViewModel, "SourcePath", Me.PathBox, Validator:=New RequiredStringValidator, _
            ErrorFormat:=ValidationErrorFormat.Create(Me.PathBox) _

Private Type TView
    'IView state:
    ViewModel As ExampleViewModel

    'ICancellable state:
    IsCancelled As Boolean

    'Data binding helper dependency:
    BindingManager As IBindingManager
End Type

Private this As TView

'...

Private Property Get BindingManager() As IBindingManager
    Set BindingManager = this.BindingManager
End Property

Private Sub BindViewModelProperties()
    With Bindings

        .BindPropertyPath ViewModel, "SourcePath", Me.PathBox, _
            Validator:=New RequiredStringValidator, _
            ErrorFormat:=AggregateErrorFormatter.Create( _
                ValidationErrorFormatter.Create(Me.PathBox) _
                    .WithErrorBackgroundColor _
                    .WithErrorBorderColor, _
                ValidationErrorFormatter.Create(Me.InvalidPathIcon).WithTargetOnlyVisibleOnError, _
                ValidationErrorFormatter.Create(Me.ValidationMessage1).WithTargetOnlyVisibleOnError)