Membuat Text Huruf Besar Pada Visual Basic

Untuk membuat text default huruf BESAR, biasa saya menggunakan Key Ascii.. nah Kodingnya seperti ini :

Private Sub Text1_KeyPress(Keyascii As Integer)
    Keyascii = Asc(UCase(Chr(Keyascii)))
End Sub

Dengan koding diatas, tulisan yang anda tulis di Text 1 menjadi besar semua, walaupun anda tdak menekan tombol CAPS LOCK pada Keyboard anda. Semoga bermanfaat :)

Posted in: VB