Public Sub VBP_BilderVorschau()
 
 
        KMA.VPB_ImageList.Images.Clear()
        KMA.VPB_FlowLayoutPanel.Controls.Clear()
 
        For Each Item In KMA.VPB_LB_Bilder.Items
            KMA.VPB_ImageList.Images.Add(Image.FromFile(VPBilderPath & _
              Item.ToString))
            KMA.VPB_ImageList.Tag = VPBilderPath & Item.ToString
            'MsgBox(Item.ToString)
        Next
 
        For x = 0 To KMA.VPB_ImageList.Images.Count - 1
            Dim PB As New PictureBox
            Dim BT As New Button
 
            PB.Tag = KMA.VPB_ImageList.Tag.ToString
            PB.Image = KMA.VPB_ImageList.Images(x)
            PB.Height = 115
            'PB.Width = 120
            PB.SizeMode = PictureBoxSizeMode.Zoom
            BT.Text = "Anzeige"
            BT.AutoSize = True
 
            AddHandler PB.MouseClick, AddressOf PictureBox_MouseClick
 
            KMA.VPB_FlowLayoutPanel.Controls.Add(PB)
            KMA.VPB_FlowLayoutPanel.Controls.Add(BT)
 
 
        Next
    End Sub

 Public Sub PictureBox_MouseClick(sender As Object, e As _
   System.Windows.Forms.MouseEventArgs)
        If TypeOf (sender) Is PictureBox Then
            Dim PB As PictureBox = DirectCast(sender, PictureBox)
            Dim Filename As String = PB.Tag.ToString()
            KMA.TextBox1.Text = Filename
            'KMA.VPB_PicturBox.Image = Image.FromFile(Filename)
        End If
 
    End Sub