sse.Caption)
        On Error GoTo balle7
        JB = JB + 1
        File1.ListIndex = JB
        If Right(File1.Path, 1) <> "\" Then
            nisse.Caption = File1.Path & "\" & File1.FileName
        Else
            nisse.Caption = File1.Path & File1.FileName
        End If
        Frame7.Caption = File1.FileName
        Image7.Picture = LoadPicture(nisse.Caption)
        On Error GoTo balle8
        JB = JB + 1
        File1.ListIndex = JB