Membatasi Masukan Agar tetap angka Pada VB6

Sering kali saat pembuatan form program vb6 ada kalanya kita membutuh kan sebuah text box yang hanya bisa diisi oleh angka, bagaimana caranya ??

berikut source kodenya 

private sub tnotelp_keypress (keyascii as integer)

If Not (KeyAscii >= Asc(“0″) _
And KeyAscii <= Asc(“9″) _
Or KeyAscii = vbKeyBack) Then
Beep
KeyAscii = 0
End If
End Sub

Sekian dari saya semoga bermanfaat...