[VB6] Textbox hanya menerima input angka

Deskripsi
     Textbox hanya menerima input angka , character tidak diperbolehkan

How to :

1. Buat object textbox
2. klik 2x, ganti event ke Keypress

Ikuti contoh code seperti dibawah ini :

Private Sub Text1_KeyPress(KeyAscii As Integer)


   Dim strKey As String
   strKey = "0123456789"
   If KeyAscii > 26 Then
      If InStr(strKey, Chr(KeyAscii)) = 0 Then
         KeyAscii = 0
         Exit Sub
      End If
   End If


End Sub