How do i add hotkeys to my hack (VB6) ??

Can somebody help me with adding hotkeys to my hack
I have winchester hack but how do i put a hotkey to it
like when i pres "5" i see a winchester ??

you make one button and one timer
set this in the button:

Timer?.enabled=true

Set this in the timer:

If GetKeyPress(vbKey5) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H12A8560, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun2, 42)

Set interval 1

And you have shotgunhotkey