HANYA HURUF BESAR BOLEH DI-ENTRI KE TEXTBOX

Buka project baru Standard Exe, lalu tempat kan 2 buah textbox dengan properti sbb :

Name : Text1

Text : (kosongkan)

Name : Text2

Text : (kosongkan)

Tekan F7, atau pilih menu View -> Code, lalu ketikkan kode berikut :

Private Sub Text1_Change()

'Text1 menggunakan event Change

Dim posisi As Integer

    posisi = Text1.SelStart

    Text1.Text = UCase(Text1.Text)

    Text1.SelStart = posisi

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

'Text2 menggunakan event KeyPress

    KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Jalan kan project (tekan F5), dan lihat hasilnya