Private Sub Text1_KeyPress(KeyAscii As Integer)
 If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
  KeyAscii = 0
   Beep
End If

End Sub

Tags: , , , ,

Articoli vicini: Prissimo articolo [VB6] Titolo scorrevole
Articolo precedente Personalizzare i temi di firefox 3