Start/stop mediaplayer i fuld screen

Hej!
Jeg har følgende kode:

<kode>
Private Sub MediaPlayer1_KeyPress(CharacterCode As Integer)
If CharacterCode = 113 Then
    MediaPlay
ElseIf CharacterCode = 119 Then
    MediaStop
End If
End Sub

Function MediaPlay()
    MediaPlayer1.play
End Function

Function MediaStop()
    MediaPlayer1.Stop
    MediaPlayer1.CurrentPosition = 0
End Function
</kode>

Som i måske kan se, så vil jeg ha den video mediaplayeren spiller, til at starte/stopped ved at trykke på "q" og "v". Det virker også fint. Sålænge videon ikke er i full screen. Hvis jeg ændrer til Full Screen virker det altså ikke!