Mas Teguh, Saya biasanya pakai cara:
1. Ubah Form Properties 'Key Preview' menjadi 'Yes'
2. Di Form Event 'On Key Press' pakai kodingan mas Teguh yg ini:
Select Case KeyAscii
Case 97 To 127: ' a..z
KeyAscii = KeyAscii - 32 ' a(97) -> A(65)
End Select
ATAU
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Nah, dengan cara seperti ini tidak ada batasan jumlah textbox, malah
Input Control lain seperti combobox juga termasuk.
He..he..he...sekali tembak, kena semua.
Thanx. :D
Lukito Hartono
