Private Sub ImageListeFüllen(ByVal ImageKey As String, ByVal Figur As Integer)
        Dim c, x, y, xold, yold, MiddleFrame As Integer
        Dim gesplittet() As String
        gesplittet = ImageKey.Split(".")
 
        If System.IO.File.Exists(FolderBrowserDialog1.SelectedPath & "\" & _
          gesplittet(0) & ".jpg") Then ' Schauen, ob das Bild schon da ist.
 
            BitMapTemp = New Bitmap(FolderBrowserDialog1.SelectedPath & "\" & _
              gesplittet(0) & ".jpg")
            ImageList1.Images.Add(ImageKey, BitMapTemp)
            Application.DoEvents()
 
            ' Die Datei ist nicht da und muß erzeugt werden
        Else
            MiddleFrame = Math.Abs((UBound(Hauptfigur(Figur).Frame) / 2))
            BMPF.Clear(Color.Black)
 
            For c = 1 To UBound(Hauptfigur(Figur).Frame(MiddleFrame).Punkt)
                Application.DoEvents()
                Dim Stift = New Pen(Hauptfigur(Figur).Frame(MiddleFrame).Punkt( _
                  c).farbe)
                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)
            BitMapTemp.Save(FolderBrowserDialog1.SelectedPath & "\" & _
              gesplittet(0) & ".jpg", Imaging.ImageFormat.Jpeg)
 
        End If
    End Sub