Questo riguardo lo slide dei swf:

Dim pb1 As New AxShockwaveFlashObjects.AxShockwaveFlash
Dim exir As New Button
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.KeyPreview = True
If ListBox1.Items.Count = 0 Then
MessageBox.Show("Inserisci almeno un filmato", "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button3)
Button1.Focus()
Exit Sub
End If
Dim crux As New Form
crux.WindowState = FormWindowState.Maximized
crux.Size = New Size(20, 20)
crux.MaximizeBox = False
crux.MinimizeBox = False
crux.BackColor = Color.Black
crux.Text = "Esempio"
pb1.Dock = DockStyle.Fill
pb1.BackColor = Color.Black
pb1.Size = New Size(30, 30)
crux.Controls.Add(pb1)
crux.Show()
Me.Hide()
Timer1_Timer()

End Sub

Questo invece è per l'apertura\chiusura:

Private Sub Form_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim s As Stream
Try
s = File.Open("listbox.bin", FileMode.Create, FileAccess.ReadWrite)
Catch ex As Exception
MessageBox.Show(ex.ToString(), "Errore durante il salvataggio della listbox.", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
Dim sf As New BinaryFormatter
For Each i As Object In ListBox1.Items
sf.Serialize(s, i)
Next
s.Close()
End Sub

Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim s As Stream
Try
s = File.Open("listbox.bin", FileMode.Open)
Catch ex As FileNotFoundException
'Se non c'è il file non dice nulla
Exit Sub
Catch ex As Exception
'Altrimenti protesta sonoramente
MessageBox.Show(ex.ToString(), "Errore durante il caricamento della listbox.", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
Dim sf As New BinaryFormatter
Do
Try
ListBox1.Items.Add(sf.Deserialize(s))
Catch ex As Exception
Exit Do
End Try
Loop
s.Close()
End Sub