为什么不能隐藏运行？

Question

将窗体的Visual=False时,便无法向笔记本写入记录 
当将Command1的Visual=False时也不行！ 
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer) Text1.Text = Text1.Text & Chr(KeyCode) Open App.Path + "\键击追踪笔记本.txt" For Append As #1 Write #1, Chr(KeyCode); Close #1 End Sub 
Private Sub Command1_Click() 
End End Sub

Answer 1

可调用
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text & Chr(KeyCode)
Open App.Path + "\键击追踪笔记本.txt" For Append As #1
Write #1, Chr(KeyCode);
Close #1
End Sub
Private Sub Command1_Click()
End
End SubPrivate Sub Form_Click()
 Command1_Click
End SubPrivate Sub Form_Load()
 Command1.Visible = False
 Form1.Visible = False
 Command1_KeyDown vbKeyH, 2
End Sub

Answer 2

老张 我猜楼主是想做类似键盘记录的东西 
你这段代码 只能记录窗体装载时的一个特定键（Command1_KeyDown好像只能运行1次吧？？） 没什么意义啊
你还是给楼主详细的讲讲 KEYBD_EVENT函数及其键码可能更有意义。