[Resolved][2008]hotkeys the shorter way ?

[goldenix]

All the codes to declare 1 single Global hotkey I found are just huge, I mean they are really really long. Isnt there a shorter way to do this? something like this maybe?

    HotKeySet("{F5}", "_testfunc") 

    Sub _testfunc()
        HotKeySet("{F5}") ' unreg hotkey
    End Sub