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