flash 播放器有关问题 怎样实现拖动flash到窗口就可实现播放功能

Dim ISTR As String
Private Sub Form_Load()
Picture1.BackColor = vbBlack
With ShockwaveFlash1
.Width = Picture1.Width - 200
.Height = Picture1.Height - 200
.Left = 100
.Top = 100
.BackgroundColor = Picture1.BackColor
End With
Picture1.OLEDropMode = 1
Form1.OLEDropMode = 1
End Sub

Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
Dim fl, s
 For Each fl In Data.Files
 s = s & fl & Chr(10)
 Next
 s = Left(s, Len(s) - 1)
ISTR = s
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShockwaveFlash1.Movie = ISTR
End Sub