VB จะทำให้กดปุ่ม keyboard แล้วกดปุ่มยังไงครับ VB อะครับ ปกติมันจะเป็นเม้าส์คลิ๊กปุ่มแล้วถึงจะทำงาน

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        Select Case e.KeyChar
            Case "0" To "9"
                TextBox1.Text = "OK"
            Case Chr(8), Chr(13), Chr(46)
                e.Handled = False
            Case Else
                e.Handled = True
        End Select
    End Sub

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
    Select Case e.KeyChar
        Case "1"
            TungmanAction()
    End Select
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.EventArgs) Handles Button1.Click
   TungmanAction()
End Sub

Private Sub TungmanAction()
   TextBox1.Text &= "1"
End Sub