Private Sub TextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox.KeyPress
'backspace処理(バックスペースキー押下時)
If e.KeyChar = ControlChars.Back Then Return
'数字しか入力できないようにする
If Not IsNumeric(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "-" Then
e.Handled = True
Return
End If
'追加制御処理(エラー制御)
If Not e.KeyChar = ".-" AndAlso e.KeyChar = "-." AndAlso e.KeyChar = "--" AndAlso e.KeyChar = ".." Then
e.Handled = True
Return
End If