Agar Inputan Hanya Bisa Angka

1. Aktifkan Visual Basic
2. Klik File, New Project dan Windows Aplication
3. Buat suatu design, misalnya 
   
   
   
4. Pada script code-nya masukkan code di bawah ini
    Private Sub NNilai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NNilai.KeyPress
           Select Case e.KeyChar
               Case Chr(48) To Chr(57)
                   NNilai.Focus()
               Case Chr(8)
                   NNilai.Focus()
               Case Chr(32)
                   NNilai.Focus()
               Case Else
                   MsgBox("Inputan Hanya bisa angka", MsgBoxStyle.Exclamation, "Select Case")
                   e.KeyChar = Chr(0)
           End Select
       End Sub
5. Tekan F5, saat anda menekan selain angka maka hasilnya menjadi seperti berikut
   
    
   Semoga bermanfaat
   :-)