Private Sub TXT_DOnut_Amount_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TXT_DOnut_Amount.KeyUp
Select Case Asc(e.KeyCode)
Case 48 To 57 ' key โค๊ด ของตัวเลขจะอยู่ระหว่าง48-57ครับ 48คือเลข0 57คือเลข9ตามลำดับ
e.Handled = False
TXT_Old_Price.Text = Trim(TXT_Price_Num.Text) * TXT_DOnut_Amount.Text
Case 8, 13, 46 ' ปุ่ม Backspace = 8,ปุ่ม Enter = 13, ปุ่มDelete = 46
e.Handled = False
Case Else
e.Handled = True
'MessageBox.Show("สามารถกดได้แค่ตัวเลข")
End Select
End Sub