Metin Kutusuna Sadece Sayı Girilebilmesi
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 Beep End If End Sub