If KeyCode = PlungerKey Then Plunger.Fire If BIPL = 1 Then SoundPlungerReleaseBall() 'Plunger release sound when there is a ball in shooter lane Else SoundPlungerReleaseNoBall() 'Plunger release sound when there is no ball in shooter lane End If End If