注册的时候,有返回值的,如
Dim result = RegisterHotKey(obj.Handle, 100, KeyModifiers.none, Keys.F10)
If result = true then
msgbox("成功")
Else
msgbox("失败")
End If