Как сделать горячие клавиши в VB6?

Question

У меня есть проблема, я планирую сделать форму, которая может скрыть себя, и форма может показать снова (активировать ее только с помощью горячей клавиши). Каков исходный код для моей проблемы?

Answer 1

Объявить с этим

Dim i As Integer 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As  Integer 

затем сделать таймер

Private Sub Timer1_Timer() 
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyR) Then 
Frmsav.Show 
End If 
End Sub 

, что код, используя Ctrl + R, чтобы показать вашу форму