Geldkoffer: coupons for webmasters, consumers and publisher
type numbers only on a txtbox, no letters allowed
[code:2l8pfrr0]Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub[/code:2l8pfrr0]
