[size=2][color=#0000ff]If [/color][/size][size=2][color=#0000ff]Char[/color][/size][size=2].IsDigit(e.KeyChar) [/size][size=2][color=#0000ff]OrElse _[/color][/size]
[size=2][color=#0000ff]Char[/color][/size][size=2].GetUnicodeCategory(e.KeyChar) = Globalization.UnicodeCategory.Control [/size][size=2][color=#0000ff][/color][/size]
[size=2][color=#0000ff]OrElse[/color][/size][size=2][color=#0000ff]Char[/color][/size][size=2].GetUnicodeCategory(e.KeyChar) = Globalization.UnicodeCategory.CurrencySymbol _
[/size][size=2][color=#0000ff]OrElse [/color][/size][size=2][color=#0000ff]Char[/color][/size][size=2].GetUnicodeCategory(e.KeyChar) = Globalization.UnicodeCategory.Format [/size][size=2][color=#0000ff]Then
[/color][/size][size=2]e.Handled = [/size][size=2][color=#0000ff]False[/color][/size]
[size=2][color=#0000ff]
[/color][/size][size=2][color=#0000ff]Else
[/color][/size][size=2]e.Handled = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][color=#0000ff]End [/color][/size][size=2][color=#0000ff]If