Private Sub txtData_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) _
Handles txtData.Validating
' 閉じる(×)ボタンと終了ボタンが
' クリックされた時はデータチェックを中止
If ActiveControl.Name = "txtData" Or _
ActiveControl.Name = "btnEnd" Then
Exit Sub
End If
' データチェック
If IsNumeric(txtData.Text) = False Then
MsgBox("数値を入力してください")
e.Cancel = True
End If
End Sub