主题：代码求助

窗口的输入框的KeyPress事件:

If Char.IsPunctuation(e.KeyChar) OrElse Char.IsSymbol(e.KeyChar) Then '如果输入的是符号或者标点
    e.Cancel = True '则取消此次字符输入
ElseIf Char.IsLower(e.KeyChar) Then '如果输入的是小写字母
    e.Cancel = True '同样取消此次字符输入
    e.Sender.SelectedText = e.KeyChar.ToUpper '同时插入该字符的大写形式
End If