Textbox Menerima Angka Saja

pelajaran vb hari ini membuat program yang pada textbox nya hanya menerima input angka saja, tidak boleh huruf yang di masukan.

Langkah - langkah pembuatan nya adalah
1. Buka aplikasi visual basic
2. Pada form di jendela project nya, sisipkan objek textbox.
3. Klik dua kali pada objek textbox.
4. Maka tampilan pada jendela view code adalah

private sub text1_change()

ganti dengan events

private sub text1_keypress(keyascii as Integer)
Tambahkan kode berikut di bawah private sub keypress pada textbox

if not(keyascii >= asc("0") and keyascii <= asc ("9") then
  keyascii = 0
  msgbox "Hanya angka saja..!",vbcritical,"Peringatan"
  text1.setfocus
  exit sub
end if

maka kode selengkapnya menjadi :

private sub text1_keypress(keyascii as integer)
if not(keyascii >= asc("0") and keyascii <= asc ("9") then
keyascii = 0
msgbox "Hanya angka saja..!",vbcritical,"Peringatan"
text1.setfocus
exit sub
end if
end sub