ho trovato questo
Codice PHP:
1 Imports ShockwaveFlashObjects
2 Imports AxShockwaveFlashObjects
3
4 Imports System.IO
5 Public Class Form1
6
7 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
8 Dim flash As New AxShockwaveFlash
9 Dim percorso As String
10 percorso = Path.Combine(Directory.GetCurrentDirectory, "logo_tre_hp.swf")
11 Dim startupSize = New System.Drawing.Size(1024, 768)
12 Dim startupsize2 = New System.Drawing.Size(640, 480)
13 'Start
14 flash.BeginInit()
15 flash.Location = New Point(50, 80)
16 flash.Name = "Testina"
17 flash.TabIndex = 0
18 Controls.Add(flash)
19 flash.Size = startupsize2
20 flash.EndInit()
21 flash.LoadMovie(0, percorso)
22 flash.Play()
23 FormBorderStyle = 1
24 ClientSize = startupSize
25
26 End Sub
27 End Class