Option Infer On
 
Public Class frmSlideMini
 
    Dim pb As New PictureBox With {.Parent = Me, .Dock = DockStyle.Fill}
    Dim shownext As Boolean
 
    Private Sub frmSlideMini_KeyDown(ByVal sender As Object, _
            ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        shownext = True
    End Sub
 
    Private Sub frmSlideMini_Load(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles MyBase.Load
 
restart:
 
        Me.KeyPreview = True : Me.Show()
        For Each file In IO.Directory.GetFiles("F:\daten\bilderA")
            pb.Load(file) : shownext = False : Me.Activate()
            While Not shownext
                My.Application.DoEvents()
            End While
        Next
 
        GoTo restart
 
    End Sub
 
End Class