Private Sub FotoName_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles FotoName.SelectedIndexChanged
        BVS.Image = Nothing
        BVS.Refresh()
        Dim g As Graphics
        Dim br As New SolidBrush(SystemColors.ControlDark)
        Dim DBCmyFont As New Font("Verdana", 10, FontStyle.Bold)
        g = BVS.CreateGraphics
        g.DrawString("Laden...", DBCmyFont, br, (BVS.Width / 2) - 25, ( _
          BVS.Height / 2) - 10)
 
        BVS.Image = Bitmap.FromFile(AVZ.Text & "\Fotos\" & FotoName.Items( _
          FotoName.SelectedIndex))
    End Sub

        Dim f As IO.File
        BVS.Image = New Bitmap("blank.gif")
        BVS.Refresh()
        Dim SIF As New ListBox.SelectedIndexCollection(FotoName)
        For i As Integer = 0 To SIF.Count - 1
            f.Move(AVZ.Text & "\Fotos\" & FotoName.Items(SIF(i)), ZielFotos & _
              FotoName.Items(SIF(i)))
        Next

BVS.Image.Dispose()