Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
        Dim ofd As OpenFileDialog = New OpenFileDialog
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim swfFile As String = ofd.FileName
            AxShockwaveFlash1.LoadMovie(0, swfFile)
            AxShockwaveFlash1.Play()
        End If
    End Sub