关于双击mediaplayer控件没反应的问题

我在win2000server+vb6.0下用mediaplayer6.4做播放器，想用mediaplayer_dblclick实现播放屏幕恢复成原来大小，即不再是全屏。可是双击mediaplayer后没有任何反应，不知何故？在线急等。代码如下：Private Sub Form_Load()
Form2.Height = Screen.Height
Form2.Width = Screen.Width
MediaPlayer1.Height = Form2.Height
MediaPlayer1.Width = Form2.Width
Form2.Top = 0
Form2.Left = 0
End SubPrivate Sub MediaPlayer1_DblClick(Button As Integer, ShiftState As Integer, x As Single, y As Single)Form2.Height = 6945
Form2.Width = 8355
MediaPlayer1.Height = 3975
MediaPlayer1.Width = 8295End Sub