因为你用的是H，是十六进制，你可以写成
网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了宝清免费建站欢迎大家使用！
Const VK_ALT=18
或者
Const VK_ALT=H12
十六进制的H12就是十进制的18。
If e.Shift And e.KeyCode = Keys.Tab Then
MsgBox("Is ""Shift+Tab""")
End If
'----------------------edit by yiensoha------2017.05.02-----------------------------------------
Private Sub txtMain_KeyDown(sender As Object, e As KeyEventArgs) Handles txtMain.KeyDown
If (e.KeyCode = 9) Then '表示tab键按下
txtMain.Text = "keytab"
End If
End Sub
在这里一定要注意：如果你要识别tab键，那么必须保证所有控件的tabstop属性均为false，否则的话，tab键会当做控件之间的跳转功能，而不是作为tab键按下。