如何在VB6中制作热键？

我有一些问题，我计划使一个表单可以隐藏自己，表单可以再次显示（激活它只有热键）。我的问题的源代码是什么？

用这个声明

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显示表单的代码

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显示表单的代码

使用

RegisterHotKey

API。使用

RegisterHotKey

API。