Private Sub Text1_KeyPress(KeyAscii As Integer) Text2.Text = KeyAscii End Sub
VbKeyA 'A VbKeyB 'B VbKeyC 'C VbKeyD 'D VbKeyE 'E VbKeyF 'F VbKeyG 'G VbKeyH 'H VbKeyI 'I VbKeyJ 'J VbKeyK 'K VbKeyL 'L VbKeyM 'M VbKeyN 'N VbKeyO 'O VbKeyP 'P VbKeyQ 'Q VbKeyR 'R VbKeyS 'S VbKeyT 'T VbKeyU 'U VbKeyV 'V VbKeyW 'W VbKeyX 'X VbKeyY 'Y VbKeyZ 'Z ------------ VbKeySpace 'Espace VbKeyReturn 'Entrer ------------ VbKey1 '1 VbKey2 '2 VbKey3 '3 VbKey4 '4 VbKey5 '5 VbKey6 '6 VbKey7 '7 VbKey8 '8 VbKey9 '9 VbKey0 '0 ------------ VbKeyUp VbKeyDown VbKeyLeft VbKeyRight