Membatasi Textbox Hanya Bisa Diisi Angka

Selamat apa saja para pecinta vb classic.

Adakalanya kita ingin membatasi isian  di textbox. Cara membatasi isian di textbox sangat mudah sekali.

Sebagai contoh:
1. Buatlah form baru di Visual Basic 6
2. Buat 1 textbox ke dalamnya
3. Masukkan kode ini

Private Sub text1_KeyPress(KeyAscii As Integer)
Dim Numbers As Integer
Dim Msg As String

If ((KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8) Then
 Msg = MsgBox("Hanya Bisa diisi Angka", vbCritical, "System Error")
 KeyAscii = 0
End If
End Sub

4. Run aplikasinya, lalu isi textbox dengan selain angka.

 Selamat Mencoba