Io devo ancora passare a vb.net per ora ho solo teoria. Prova questa

Private Sub FineFilmato(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMediaPlayer1.Done
MsgBox("Il filmato è finito")
End Sub