VB父窗体怎么用热键调用子窗体？

RT!希望高手给出源代码。。。谢谢。。。

答案：2个 窗体 一个按钮 代码如下：
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 36 Then '如果按下Home键，因为Home的ASCII码是36
Form1.Hide 'Form1隐藏
Form2.Show 'Form2显示
End If
End Sub
注册热键
''窗体中 
Option Explicit 

Private Sub Form_Load() 
Dim ret As Long 
''记录原来的window程序地址 
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC) 
''用自定义程序代替原来的window程序 
ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc) 
idHotKey = 1 ''in the range ＆h0000 through ＆hBFFF 
Modifiers = MOD_ALT ''辅助键为Alt 
uVirtKey1 = vbKeyQ ''注册的热键为Alt+Q 
''注册热键 
ret = RegisterHotKey(Me.hWnd, idHotKey, Modifiers, uVirtKey1) 
If ret = 0 Then 
MsgBox "注册热键失败,请使用其它热键!", vbCritical, "错误" 
End If 
End Sub 

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
Dim ret As Long 
''取消Message的截取，使之送往原来的window程序 
ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, preWinProc) 
Call UnregisterHotKey(Me.hWnd, uVirtKey1) 
End Sub 

如果还没得到满意答案请联系我，帮你做
在父窗体上做个打开子窗体的菜单，然后为菜单设置快捷键就行了。

上一个：VB的要主用途是什么？
下一个：急求一份VB毕业设计