（求助）视频播放的问题

最近做一个东西，要求开始自动播放完一段视频，然后就黑屏，等待按下电脑键盘p键，又重新开始播放视频，播放完黑屏，如此重复。我自己写了个，只能实现播放完黑品，后面按键操作不知道要放在哪里,请大家帮帮忙，谢谢了！代码如下：
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd _
As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)
Const WM_SYSCOMMAND = &H112&
Const SC_MONITORPOWER = &HF170&
Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)
Dim edata As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)
If keycode = vbKeyP Then
  MCIWnd1.FileName = CommonDialog1.FileName
  CommonDialog1.FileName = "F:\zm\FFTEY9GG6MPCY4F.wmv" 'CommonDialog1.FileName
  MCIWnd1.Position = MCIWnd1.Start
  MCIWnd1.Command = "Play"
End If
End Sub

Private Sub Form_Load()
MCIWnd1.Left = Form1.ScaleLeft
MCIWnd1.Top = Form1.ScaleTop
MCIWnd1.Width = Screen.Width 'Form1.ScaleWidth
MCIWnd1.Height = Screen.Height 'Form1.ScaleHeight
MCIWnd1.Command = "Close"
'CommonDialog1.Action = 1
MCIWnd1.FileName = CommonDialog1.FileName
CommonDialog1.FileName = "F:\zm\FFTEY9GG6MPCY4F.wmv" 'CommonDialog1.FileName
MCIWnd1.Command = "Play"
End Sub

Private Sub Form_Resize()
MCIWnd1.Left = Form1.ScaleLeft
MCIWnd1.Top = Form1.ScaleTop
MCIWnd1.Width = Screen.Width 'Form1.ScaleWidth
MCIWnd1.Height = Screen.Height 'Form1.ScaleHeight
End Sub

Private Sub MCIWnd1_PositionChange(ByVal Position As Long)
If MCIWnd1.Position = MCIWnd1.Length Then
  SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2& '关闭显示器
End If
End Sub

用键盘钩子定义热键：
http://topic.csdn.net/u/20110307/14/dff9d358-adfc-4871-a053-f698f28487fc.html 好的，谢谢了！以前没学过，很多定义都完全不懂，先了解下。这两天也在做VB的视频播放器
菜鸟遇到很多问题
LZ的源码可否分享下?
409223171@qq.com
不胜感激看一下flash控件的属性谢谢了！以前没学过，很多定义都完全不懂

补充：VB ,  多媒体