HANYA HURUF KECIL 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 = LCase(Text1.Text)
    Text1.SelStart = posisi
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
'Text2 menggunakan KeyPress
    KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub
Jalan kan project (tekan F5), dan lihat hasilnya