Private Sub Command Click()
    Dim iPos     As Integer
    Dim iTmp     As Integer
 
    Pic_HiddenThumb.Height = myImage(2).Height
    Pic_HiddenThumb.Width = myImage(2).Width
 
    btn_Weiter.Enabled = False: btn_Zurück.Enabled = False
 
    With CommonDialog
        .CancelError = False
        .MaxFileSize = 4096
        .Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
        .Filter = "Alle Bilddateien|*.jpg;*.gif;*.bmp"
        .FileName = ""
        .ShowOpen
        If (.FileName <> "") And (Err.Number = 0) Then
            ProgressBar.Visible = True
 
            If InStr(1, .FileName, Chr(0)) Then
                vntFilename = Split(.FileName, Chr(0))
            Else 
                iPos = InStrRev(.FileName, "\")
                .FileName = XReplace(.FileName, "\", Chr(0), iPos)
                vntFilename = Split(.FileName, Chr(0))
            End If
 
            MyImageList.ListImages.Clear
 
            iBrowsePos = 0
            iAnzahl = UBound(vntFilename)
            If iAnzahl < 5 Then iTmp = iAnzahl Else iTmp = 5
            ProgressBar.Value = 0: ProgressBar.Max = iTmp
 
            For iCnt = 1 To iTmp
                Call LoadThumbnails2Imagelist(vntFilename(0), vntFilename(iCnt))
 
                If iBrowsePos < 3 Then
                    iBrowsePos = iBrowsePos + 1
                    myImage(iBrowsePos).Picture = MyImageList.ListImages( _
                      iBrowsePos).Picture
                    Lbl_Name(iBrowsePos).Caption = MyImageList.ListImages( _
                    iBrowsePos).Key
                    Lbl_Name(iBrowsePos).Left = myImage(iBrowsePos).Left + (( _
                    myImage(iBrowsePos).Width - Lbl_Name(iBrowsePos).Width) / 2)
                    frm_MainScreen.Refresh
                End If
 
                ProgressBar.Value = ProgressBar.Value + 1
            Next iCnt
            iPointer = iCnt - 1
            If MyImageList.ListImages.Count < 4 Then btn_Weiter.Enabled = False _
              Else btn_Weiter.Enabled = True
        Else
        End If
    End With
    btn_Zurück.Enabled = False
    ProgressBar.Visible = False
End Sub