'---- Form1 ----
Private WithEvents mValidator As CInputOrderValidator

Private Sub Form_Load()
Set mValidator = New CInputOrderValidator
End Sub

Private Sub Command1_Click()
　　mValidator.SetNextInput (Button1)
End Sub

Private Sub Command2_Click()
　　mValidator.SetNextInput (Button2)
End Sub

Private Sub Command3_Click()
　　mValidator.SetNextInput (Button3)
End Sub

Private Sub mValidator_ValidationFinished(result As eValidationResult)
　　If result = Valid Then
　　　　MsgBox ("OK !")
　　Else
　　　　MsgBox ("NG !")
　　End If
　　mValidator.Reset
End Sub