Skrip Kode Cara Supaya Ketikkan Karakter/Huruf Pada TextBox, Outputnya Berupa Huruf Besar (Pemrogaman Gambas)

Public Sub TextBox1_KeyPress()

     If InStr("abcdefghijklmnopqrstuvwxyz", Key.Text) <> 0 Then

         Stop Event

         TextBox1.Insert(UCase(Key.Text))

     Endif

End