关于MediaPlayer控件的问题

我用MediaPlayer控件做了一个播放器，但是点完暂停后，再点播放就有黑影闪烁（屏幕变黑）代码如下：
Dim playfilename As String
Dim playposition As Double  
  
'播放
Private Sub cmd1_Click()
cmd2.Enabled = True
cmd3.Enabled = True
cmd1.Enabled = False
MediaPlayer1.FileName = playfilename
MediaPlayer1.CurrentPosition = playposition
MediaPlayer1.PlayEnd Sub
'暂停
Private Sub cmd2_Click()
    cmd1.Enabled = True
    cmd2.Enabled = False
    cmd3.Enabled = True
    MediaPlayer1.Pause
    playposition = MediaPlayer1.CurrentPosition
    
End Sub
怎么才能解决此问题