Bonsoir,Cjvg,
Merci pour ce code court bien utile pour ne pas masquer ce que la msgbox commente!
Depuis le temps que je cherchais à maîtriser l'emplacement des msgbox !

Je ne parviens pas à remplacer l'ancienne capture d'écran.
Qui peut me donner le moyen?
Merci.

Bonjour, Moimi,(c'est un copié/collé de mon commentaire à propos de votre requête concernant la source jeux de lecture):
Je suppose que vous parlez des .dll,etc nécessaires à tout programme en VB6
(Remarque préalable: Je ne suis qu'un bricoleur = vérifiez ailleurs des infos fiables concernant les .dll et autres bases (.oca/.ocx)nécessaires au fonctionnement de VB6).

Vous savez sans doute mieux que moi que ces éléments doivent être présents dans system32 (et en plus dans syswow64 pour W7) -De mon côté, je les ai même collés dans system -
Je ne peux que répéter ce que j'ai indiqué dans mon commentaire:
(Si on ne possède pas la base vb6, il suffit de récupérer les dll,oca,ocx,... nécessaires au fonctionnement de visual basic 6 et de vérifier s'ils sont dans system32 de windows (et répétés dans syswow64 pour W7): outre ces .dll, .oca, ocx habituels à tout VB6, vérifier la présence des composants particuliers du projet: richtx32.ocx et autres nécessaires aux richtextbox; COMDLG32.OCX; MSCOMCTL.OCX et MCI32.ocx (toujours à la fois dans system32 et syswow64 pour W7)
(Je ne connais pas vos compétences -ni quelle .dll fait défaut- et je risque d'être un borgne aveugle qui tente de guider un "oeil de lynx"...
A tout hasard, on peut taper "vb6fr.dll" ou "RCHTXFR.DLL" ou "RICHED32.DLL",etc sur un moteur de recherche, et on n'a que l'embarras du choix - (Pour ne pas raconter d'âneries, je viens de vérifier et de recharger ces trois : ça marche !)
Toujours à votre disposition,
bonne nuit,
mais comme le dit NHenry, il serait bon de préciser le problème -Merci-

Bonjour, Moimi,
(Je ne suis qu'un bricoleur = vérifiez ailleurs des infos fiables concernant les .dll et autres bases (.oca/.ocx)nécessaires au fonctionnement de VB6).

Pour ce que j'ai constaté, c'est que ces éléments doivent être présents dans system32 (et en plus dans syswow64 pour W7) -De mon côté, je les ai même collés dans system -
Je ne peux que répéter ce que j'ai indiqué dans mon commentaire:
(Si on ne possède pas la base vb6, il suffit de récupérer les dll,oca,ocx,... nécessaires au fonctionnement de visual basic 6 et de vérifier s'ils sont dans system32 de windows (et répétés dans syswow64 pour W7): outre ces .dll, .oca, ocx habituels à tout VB6, vérifier la présence des composants particuliers du projet: richtx32.ocx ; COMDLG32.OCX; MSCOMCTL.OCX et MCI32.ocx (toujours à la fois dans system32 et syswow64 pour W7)
(Je ne connais pas vos compétences -ni quelle .dll fait défaut- et je risque d'être un borgne aveugle qui tente de guider un "oeil de lynx"...
A tout hasard, on peut taper "vb6fr.dll" ou "RCHTXFR.DLL" ou "RICHED32.DLL",etc sur un moteur de recherche, et on n'a que l'embarras du choix - (Pour ne pas raconter d'âneries, je viens de vérifier et de recharger ces trois : ça marche !)
Toujours à votre disposition,
bonne journée

Merci,Alpha5,
mais je ne suis qu'un bricoleur, et, s'il y a quelque chose qui ne fonctionne pas ou qui doit être amélioré pour être utilisable, je suis toutes ouïes.
Bonne soirée

Bonsoir, NHenry,
Excusez-moi tout d'abord de ne pas avoir répondu à votre premier message sur la précédente source ... Toujours mes travers...
Le problème, c'est qu'avec le grand nombre de paramètres, je me perds sur tant de lignes, alors que, pour la  présentation de la programmation, la règle, la tournure d'esprit et l'habitude générale sont de  visualiser comme vous me le proposez.
Ce que j'aurais pu faire pour limiter -dans la partie que vous me donnez en illustration-, c'est englober dans radi(string radical selon type de verbe) les codes de pointage du cheminement correspondant pour l'utilisateur (pour formation radical et 2 façons pour terminaison:par raisonnement-élimination (menu) et par choix de tableaux de terminaisons);
j'aurais pu mettre des N°s correspondant à des array qui reprennent  ces codages, puis, avant utilisation, redistribution de ces N°S pour reformer les codes.
par.ex: codradi=array("p0(0)","p0(1)",...etc...
codterm=array("t0(0)","t0(1),...
Ainsi je n'aurais eu par-exemple que
If Right(inf1, 4) = "ncre" Then radi = "42208" & Left(inf1, Len(inf1) - 2)
en évitant: dg3 = 4: codrp = "p03(3)": codtp = "t014(0)"

et, à la fin, avant passage de la main à l'utilisateur,
dg3=val(left(radi,1))  ' pour affichage étiquettes
codrp=codrad(val(mid(radi,2,2))) ' pour cheminement dans menu radical
codtp=codterm(val(mid(radi,4,2))) ' pour cheminement dans menu
radi=mid(radi,6) ' on retrouve le radical

quant à "' ??? voir code radical", j'ai oublié de l'enlever ... C'était pour moi ... Une recherche de " ??? "et je retrouve les questions que je me posais et les trucs à vérifier
En vous remerciant de m'avoir lu;
Bonne soirée.

Bonsoir,Jacques-Antoine
Merci pour tout le mal que vous vous donnez.
J'ai essayé votre proposition en l'adaptant à ma sauce, (comme j'ai la flegme de copier plusieurs cmd ou pictures: for i=1 to 15:load ... +calcul des coordonnées),
mais j'en reviens toujours au paintpicture qui me permet de faire rentrer une image de n'importe quelle taille:
(en créant d'abord une image"imagvar" avec la propriété stretch=true)
(et Picture_table(0).autoredraw à true pour éviter l'effacement)
(xwx=Picture_table(0).width et yhy=Picture_table(i).height)


Imagvar.Picture = LoadPicture("add2.jpg")
For i = 0 To nb_images - 1
    'Picture_table(i).Picture = LoadPicture("add2.jpg")
        Picture_table(i).PaintPicture Imagvar.Picture, 0, 0, xwx, yhy

Next

(Pour plus de simplicité, je vous ai transmis un message privé)

Bonjour, Jacques-Antoine,
Je vous remercie de me lire, mais j'ai dû délaisser - en cas de trop grand nombre:-  "picture(index).picture" en fait " [Picture1(xx * (ymax + 1) + yy).PaintPicture Imagvar.Picture, 0, 0]" , car je n'arrive pas à faire fonctionner  sur mon XP le code "picture(xx).PaintPicture = Imagvar.Picture" que vous me donnez  .
L'affichage de "picture(index).picture" serait intéressant, d'autant plus que l'effacement est facile, alors qu'avec la méthode paintpicture sur une seule picture ou form -pour effacer- m'oblige à refaire un affichage d'autant de segments de fond de la picture ou de la form  qu'il y a d'images à effacer.
En effet, l'affichage de pictures multiples est beaucoup trop long sur le mien (ex:40x20=800 pictures en 16 secondes, sans compter la durée d'effacement...), alors que la méthode paintpicture sur une seule form ou une seule picture est quasi immédiat (testé pour 400x90=36000 images) -et impossible avec picture(36000):ça bloque dès 40x40!
(J'ai utilisé ça pour visualiser les groupements ou distributions sur mes petits programmes concernant les opérations:
http://www.vbfrance.com/codes/EXERCICES-PREPARATOIRES-DIVISION_54351.aspx
http://www.vbfrance.com/codes/TECHNIQUE-TRADITIONNELLE-DIVISION_54279.aspx
http://www.vbfrance.com/codes/ENTRAINEMENT-EFFECTUER-MULTIPLICATIONS-COLONNES-TECHN-TRAD_54186.aspx
et tables, additions, soustractions)

Si vous connaissez des astuces qui me permettent de faire autrement, je suis preneur, car  je ne suis qu'un bricoleur.
En vous remerciant de m'avoir lu.

Dans le même ordre d'idée, voilà ce que j'utilise pour réduire mes images au format désiré:
'1 contrôle image (imagevar) avec coordonnées hors écran (avec stretch=true)  et un contrôle picture avec la méthode paintpicture
'coimg=mesure du côté désiré(si je veux une image carrée)
exemple:
Private Sub mille(Index)
     coimg = 570: Imagvar.Height = coimg: Imagvar.Width = coimg: Imagvar.Picture = LoadPicture(CurDir & "\t1000.jpg")
    For xx = 1 To Index: Picture1.PaintPicture Imagvar.Picture, xl7, yl7, coimg, coimg: yl7 = yl7 + 700: Next xx '(je répète l'image pour mes besoins)
End Sub

Bonsoir, NHenry,
-Il me semble que j'ai fait une fausse manoeuvre et que ma 1e réponse n'est pas passée; alors excuse si c'est une redite-
Merci de te pencher sur mon bricolage.
Il est un fait que je me suis trop pressé pour envoyer ce code sans finir de l'arranger et de le commenter.
Je vais le reprendre et y ajouter la possibilité de rentrer une suite d'affichages d'heure à la demande (pour adapter à une difficulté particulière)
Pour ce qui est du codage d'une autre personne, j'ai utilisé les formules avec sinus et cosinus du livre  "Visual Basic 6" -(Le tout en poche -Campuspress) de M.Pelletier (p302) pour l'affichage du cadran et des aiguilles, en les adaptant à ma sauce "pagaille" . C'est peut-être aussi dû au fait que je programme comme ça me vient en attachant ce qui me semble lié, puis, que, avant d'envoyer, je reprends ... mais là, je n'ai pas tout repris...
Mais, pour moi, l'essentiel, c'est que ça puisse servir à d'autres qu'à mes petites-filles.