
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Private Const VK_F12 = &H7BPrivate Sub Timer1_Timer()
If GetAsyncKeyState(VK_F12) Then Bounce
End Sub

Users browsing this forum: No registered users and 0 guests