Dim ctl As Control
        Dim TxtCount As Integer = 0
        Dim BildCount As Integer = 0
        For Each ctl In TabPage1.Controls
            If TypeOf ctl Is Label Then
                Dim chkLabel As Label
                chkLabel = CType(ctl, Label)
                chkLabel.Text = DateienPf(TxtCount)
                Application.DoEvents()
                TxtCount += 1
            End If
            If TypeOf ctl Is PictureBox Then
                Dim chkPicturebox As PictureBox
                chkPicturebox = CType(ctl, PictureBox)
                chkPicturebox.Image = New Bitmap("c:\Bilder\" & DateienPf( _
                  BildCount))
                Application.DoEvents()
                BildCount += 1
            End If
        Next