有关VB编程问题

VB文本框如何禁止输入字母,算字和特殊符号.文本框我只想让他输入字体，如何实现，在线等待
最好有例子!
因为本人刚学习VB!
--------------------编程问答--------------------

Private Sub Text1_KeyPress(KeyAscii As Integer)

    Const INVALID_CHARS As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" '所有不需要的字符

    Dim ch As String

    

    ch = UCase(Chr(KeyAscii))

    If InStr(1, INVALID_CHARS, ch) <> 0 Then

        KeyAscii = 0

    End If

End Sub

--------------------编程问答-------------------- 谢谢楼上的回复 --------------------编程问答-------------------- 使用ASCII碼用區別比較好,字一般為負的5位數，如
?asc("人")
-23480

符號和字母的ASCII在0-255 --------------------编程问答-------------------- Private Sub text1_keypress(keyascii As Integer)
If (keyascii < 48 Or keyascii > 57) Then keyascii = 0
End Sub

如上所例，48是数字0的十进制ASCII码，57是9的，以上代码就使text1只能输入0到9的数字 --------------------编程问答-------------------- 用这个添加系统字体到ListBox

Private Sub Form_Load()

Dim i As Integer
For i = 0 To Screen.FontCount - 1

List1.AddItem Screen.Fonts(i)
Next
End Sub

补充：VB ,  基础类