!真晕啊!!!
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CHAR = &H102
Private Sub Command1_Click()
SendMessage Me.hwnd, WM_CHAR, Asc(Text1.Text), 0
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Me.Print Chr(KeyAscii)
End Sub