Private Function GetKeyState(ByVal time As GameTime, ByVal key As Keys) As _
  KeyState
	Static Dim oldState As New KeyboardState
	Static Dim oldTime As Double
 
	Dim state As New KeyState
 
	If Keyboard.GetState.IsKeyUp(key) Then
		state = KeyState.Up
		oldTime = time.TotalGameTime.TotalMilliseconds
 
	ElseIf Keyboard.GetState.IsKeyDown(key) AndAlso oldState.IsKeyUp(key) Then
		state = KeyState.Down
		oldTime = time.TotalGameTime.TotalMilliseconds
 
	ElseIf oldTime + 400 < time.TotalGameTime.TotalMilliseconds Then
		state = KeyState.Pressed
 
	Else
		state = Nothing
	End If
 
	If state.ToString <> "Up" Then
		Debug.Print(state.ToString)
	End If
 
	oldState = Keyboard.GetState
	Return state
End Function

Select GetKeyState(gameTime, Keys.Left)
	Case KeyState.Down
		cList.RotateLeft()
 
	Case KeyState.Pressed
		MsgBox("Pressed")
End Select
 
Select Case GetKeyState(gameTime, Keys.Right)
	Case KeyState.Down
		cList.RotateRight()
 
	Case KeyState.Pressed
		MsgBox("Pressed")
End Select