Code: Select all
FLVPlayer.FlashMethod_Play()
FLVPlayer.Show()
IsPlayingTimer.Enabled = True
Do While IsPlayingTimer.Enabled = True
Application.DoEvents()
Loop
MsgBox("DONE")
Private Sub IsPlayingTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IsPlayingTimer.Tick
If FLVPlayer.FlashMethod_CurrentFrame = FLVPlayer.FlashProperty_TotalFrames Then
IsPlayingTimer.Enabled = False
End If
End Sub