Eae pessoal, tem uma coisa me caducando aque, alguém pode me explicar porque budegas isso não funciona??? Private Sub txtLaudo_KeyPress(KeyAscii As Integer) If KeyAscii = 113 Then '113 = tecla F2 Beep WindowsMediaPlayer1.Controls.pause Else If KeyAscii = 114 Then '114 = tecla F3 WindowsMediaPlayer1.Controls.play End If End If End Sub se eu coloco keyascii = vbkeyreturn a budega funciona x/ obrigado