Private Sub Form_Load()
Me.Show 'MciPlay.Visible = False MciPlay.Notify = True MciPlay.Wait = True MciPlay.Shareable = False MciPlay.filename = "c:\winnt\clock.avi" MciPlay.Command = "Open" MciPlay.Command = "Play" End Sub Per visualizzare un filmato sia AVI che Mpeg puoi utilizzare l'MCI |