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) _