For Each sFile In My.Computer.FileSystem.GetFiles( _
                     sPath, FileIO.SearchOption.SearchAllSubDirectories, _
                     "*.jpg*")
 
                    Dim picbox As New PictureBox
                    picbox.Size = New Size(120, 120)
                    picbox.SizeMode = PictureBoxSizeMode.Zoom
                    picbox.WaitOnLoad = False
                    picbox.InitialImage = My.Resources.waitani
                    picbox.ImageLocation = sFile
                    picbox.Name = "picbox" + anzahl.ToString
 
                    If anzahl Mod 3 = 0 Then
                        picbox.Location = New Point(20, (höhe * 150) + 20)                        
                    ElseIf anzahl Mod 3 = 1 Then
                        picbox.Location = New Point(160, (höhe * 150) + 20)                        
                    Else
                        picbox.Location = New Point(300, (höhe * 150) + 20)
                        höhe += 1
                    End If
 
                    Me.Panel1.Controls.Add(picbox)
                    anzahl += 1                  
                End If
                Application.DoEvents()
                Label1.Text = "lade Bild " + anzahl.ToString + " von " + _
                  AnzahlTotal.ToString
            Next