标题：代码求助

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

如果这个代码在窗口中使用应该怎么改（不是绑定字段）

窗口的输入框的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