Function getBilder(ByRef dirPath As String) As ImageList
        Dim imlTemp As New ImageList
        Dim dirFiles() As String = IO.Directory.GetFiles(dirPath)
 
        For Each dirFile As String In dirFiles
            For Each extension As String In allowedExtensions
                If extension = IO.Path.GetExtension(dirFile) Then
                    imlTemp.Images.Add(Image.FromFile(dirFile))
                End If
            Next
        Next
 
        Return imlTemp
    End Function