请一下键盘怎样实现窗体隐藏式显示

请高手指点一下键盘怎样实现窗体隐藏式显示
我想实现一下键盘按下窗体隐藏，键盘松开窗体显示，以下代码隐藏后为什么松开不能显示怎么修改


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
     Form1.Visible = False
  End If
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
   Form1.Visible = True
  End If
End Sub

[解决办法]
窗体隐藏后失去输入焦点，KeyUp也就不能触发;
如果隐藏和显示的是子窗体，可响应父窗体的KeyUp来显示，否则可用键盘钩子hook