Public Class Form1 Private Sub OpenFile_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFile.FileOk Dim SWFFile As String SWFFile = OpenFile.FileName AxShockwaveFlash1.LoadMovie(0, SWFFile) AxShockwaveFlash1.Play() AxShockwaveFlash1.Loop = False End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFile.ShowDialog() End Sub End Class