Membuat Validasi Huruf Besar Semua di Textbox VB 2008

Form VB

contoh kasus pada gambar diatas ada textbox ber name kode_Barang

disana saya ingin membuat tulisan pada textboxt tersebut bila diketik huruf otomatis tervalidasi huruf besar atau yang biasa di dengar Upper Case Karakter

Private Sub kode_barang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.TextChanged

maka double klik pada textbox tersebut lalu pilih event nya menjadi TextChanged dan ketikkan koding dibawah ini :

        Dim posisi As Integer
        posisi = kode_barang.SelectionStart
        Dim x As String
        x = Microsoft.VisualBasic.UCase(kode_barang.Text)
        kode_barang.Text = x
        kode_barang.SelectionStart = posisi

Sekian Artikel ini saya buat. Selamat mencoba... :D