Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
 
   Dim taste = e.KeyChar
        taste = Asc(taste)
 
        If taste = System.Windows.Forms.Keys.Enter Then
            MsgBox("ENTER")
        End If
 
End Sub