Dim fenster As New Form
fenster.Size = New Size(20, 20)
fenster.WindowState = FormWindowState.Maximized
fenster.MaximizeBox = False
fenster.MinimizeBox = False
fenster.BackColor = Color.Black
 
Dim pb1 As New PictureBox
pb1.Size = New Size(10, 10)
pb1.Dock = DockStyle.Fill
 
fenster.Controls.Add(PB_Slideshow)
fenster.Show() -> Beim erneuten Starten kommt hier die Fehleranzeige
 
Dim WarteThread As New Threading.Thread(AddressOf Fenster)
WarteThread.Start()
 
End Sub
 
Private Sub Fenster()
Dim i As Integer
For i = 0 To 1
 Dim name As String
 name = TextBox1.Text
 pb1.image = Image.FromFile(name)
 Thread.Sleep(3000)
Next
Exit Sub
 
End Sub