求助：如何使text中只能输入数字？

[updateme]

我才刚刚做vb程序员的，不太搞得懂它的什么UI，不过就这段时间麻烦一下大家来帮忙指导啦！有点急！过了这阵子就好了，因为我们以后不会再用了。^_^

[饮水需思源]

tex1失去焦点时判断：
private sub text1_lostfocus()
if not isnumeric(text1.text) then
msgbox "请输入数值型数据！",48,"提示"
text1.setfocus
endif
end sub

[Cooly]

http://expert.csdn.net/Expert/topic/1425/1425269.xml?temp=.2700922