@DIV
1) キャンセルボタンの @C:red(CausesVaidation) を　False にする。
2) キャンセル処理の先頭で、UserControl.validateNone を True にする
3) フォーカス移動先の GotFocus イベントで、UserControl.validateNone を False にする
@END

@DIV
' ******************************************************
' キャンセル
' ******************************************************
Private Sub キャンセル_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles キャンセル.Click

	@C:red(UserControl.validateNone = True)

	Me.ヘッド部.Enabled = True
	Me.ボディ部.Enabled = False

	Dim obj As Object

	For Each obj In Me.ボディ部.Controls
		If obj.GetType().ToString() = "System.Windows.Forms.TextBox" Then
			CType(obj, System.Windows.Forms.TextBox).Clear()
			CType(obj, System.Windows.Forms.TextBox).Enabled = True
		End If
	Next
	' -------------------------------------------------
	' DateTimePicker の初期化
	' -------------------------------------------------
	Me.生年月日.Enabled = True
	Me.生年月日.Value = CDate(Today().Date)
	Me.生年月日.Checked = False

	Me.社員コード.Focus()
	Me.社員コード.SelectAll()


End Sub
@END

@DIV
' ******************************************************
' + ステータスメッセージ
' ******************************************************
Private Sub 社員コード_GotFocus(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles 社員コード.GotFocus

	@C:red(UserControl.validateNone = False)
	Me.通常ラベル.Text = "社員コードを入力して下さい ( F6 : 参照 ) "

End Sub
@END