比如说我要编一个程序 要实现 点Command1时 在记事本里面自动 逐个输入A到Z  意思是 离开本窗体 在别的窗体输入字母

sendmessage

大哥。好简洁的一个属性。我不是你想的那么高手。。能附带一点说明吗？
注：输出F3的 Ascii 码是多少？
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Label1.Caption = Chr(KeyCode)
End Sub
返回的却是 一个 r ？？

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Label1.Caption =KeyCode

End Sub

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
这个是API吧？
要不要打开什么API函数？ 还是要？？

Private Sub Timer1_Timer()
SendKeys F3
End Sub 这个好象不可以哟

怎么实现对活动窗体输入 键盘字符？

SendKeys "{F3}"

怎么实现对活动窗体输入 F3