Private Sub Button_OrdnerWählen_Click(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles Button_OrdnerWählen.Click
        FolderBrowserDialog1.ShowDialog()
        Dim Zähler As Integer = 0
        Dim Verzeichnis As New System.IO.DirectoryInfo( _
          FolderBrowserDialog1.SelectedPath)
        vars.Figurnummer = 0
        Label_Verzeichnis.Text = FolderBrowserDialog1.SelectedPath.ToString
 
 
        For Each f In Verzeichnis.GetFiles("*.lff")
            ImageListeFüllen(f.Name, Zähler)
 
 
            FrameListe1.Items.Add(f.Name, Zähler)
 
            Dimensionieren(Zähler + 1)
            Hauptfigur(Zähler + 1) = Figur.LoadFigur( _
              FolderBrowserDialog1.SelectedPath & "\" & f.Name)
            Zähler = Zähler + 1
        Next
 
        fgrscrll.Maximum = UBound(Hauptfigur)
        FrmScrll.Maximum = UBound(Hauptfigur(vars.Figurnummer).Frame)
        vars.Framenummer = 0
        FrmScrll.Value = 0
        g.Clear(Color.Black)
        infoupdate()
        zeichnen.Zeichnen(vars.Framenummer)
    End Sub
    Private Sub ImageListeFüllen(ByVal ImageKey As String, ByVal Figur As _
      Integer)
        Dim c, x, y, xold, yold, MiddleFrame As Integer
Dim BitMapTemp = New Bitmap(100, 100) 'Bild für die Frameliste
        Dim BMPF As Graphics = Graphics.FromImage(BitMapTemp)
        MiddleFrame = Math.Abs((UBound(Hauptfigur(Figur).Frame) / 2))
        Debug.Print(MiddleFrame)
        BMPF.Clear(Color.Black)
        Dim Stifter As New Pen(Color.White)
        For c = 1 To UBound(Hauptfigur(Figur).Frame(MiddleFrame).Punkt)
            'Dim Stift = New Pen(Hauptfigur(Figur).Frame(MiddleFrame).Punkt( 
            ' c).farbe)
            Dim Stift = New Pen(Color.White)
            Stift.Width = 1
            Application.DoEvents()
            If c > 0 Then
                x = Convert.ToInt16(Hauptfigur(Figur).Frame(MiddleFrame).Punkt( _
                  c).x / 5)
                y = Convert.ToInt16(Hauptfigur(Figur).Frame(MiddleFrame).Punkt( _
                c).y / 5)
                xold = Convert.ToInt16(Hauptfigur(Figur).Frame( _
                MiddleFrame).Punkt(c - 1).x / 5)
                yold = Convert.ToInt16(Hauptfigur(Figur).Frame( _
                MiddleFrame).Punkt(c - 1).y / 5)
                BMPF.DrawLine(Stift, x, y, xold, yold)
 
            End If
        Next
 
 
        ImageList1.Images.Add(ImageKey, BitMapTemp)
 
    End Sub