Mengubah input menjadi Kapital

biasanya dalam membangun aplikasi terkadang dibutuhkan untuk mengubah input menjadi huruf kapital. dalam trik kali ini saya ingin membagi sedikit pengetahuanku. langsung aja yah!!!!!!

1. Klik ganda pada TextBox yang ingin kita setting menjadi Huruf Kapital
2. ganti event dari textboxt yang semula change menjadi keypress
3. Keitk seperti listing dibawah ini :

Private Sub text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

4. Tekan F5

Selamat Mencoba