Private Sub txtSQL_KeyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles txtSQL.KeyDown
		If e.Control And e.KeyCode = Keys.Enter Then
			BOOL = True
			e.Handled = True
			e.SuppressKeyPress = False
			cmdSQL_Click(Nothing, Nothing)
		End If
	End Sub
 
	Private Sub txtSQL_KeyPress(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyPressEventArgs) Handles txtSQL.KeyPress
		If BOOL = True Then
			e.Handled = True
			BOOL = False
		End If
	End Sub

Sprache: VB.NET 4.0
Entwicklungsumgebung: VS 2010
Betriebssystem: Windows 7