c' est moi ou...

P_F0("Pronos Turf",500,350)

end

Sub P_F0(Titre$,W%,H%)

  Dim_Local x%,y%
  Width 0,W% :Height 0,H% :Top 0,(Screen_y-H%)/2:Left 0,(Screen_x-W%)/2
  Font_Name 0,"Times new roman":Font_Size 0,10:Caption 0,Titre$

  y%=-10
  For x%=1 To 6
      Alpha x% :Top x%,y%+30 :left x%,10:caption x%,"Pronostiqueur :"
  next x%
 
End_Sub

P_F0("Pronos Turf",500,350)

end

Sub P_F0(Titre$,W%,H%)

  Dim_Local x%,y%
  Width 0,W% :Height 0,H% :Top 0,(Screen_y-H%)/2:Left 0,(Screen_x-W%)/2
  Font_Name 0,"Times new roman":Font_Size 0,10:Caption 0,Titre$

  y%=-10
  For x%=1 To 6
      Alpha x% :Top x%,y%+30*x% :left x%,10:caption x%,"Pronostiqueur :"
  next x%

End_Sub

LABEL EvntButton
TOP 0,SCREEN_Y/2 : WIDTH 0,300 : HEIGHT 0,200 : LEFT 0,20

BUTTON 1:CAPTION 1,"Test"  : TOP 1,20:LEFT 1,30
BUTTON 2:CAPTION 2,"Test 2": TOP 2,50:LEFT 2,30

ON_CLICK 1,EvntButton
ON_CLICK 2,EvntButton

END

EvntButton:
  SELECT NUMBER_CLICK
    CASE 1
      OpenForm1()
    CASE 2
      ObjectId%()
      CreateForm("Formulaire n°"+STR$(ObjectId_return%),300,300,50,ObjectId_return%*50)
  END_SELECT
RETURN


' ------------------------------------------------------------------------------
' Procédure de l'applic
' ------------------------------------------------------------------------------
SUB OpenForm1()
  IF VARIABLE("OpenForm1_id%")=0 THEN DIM OpenForm1_id%:OpenForm1_id%=0
  DIM_LOCAL i%,n%
  IF OpenForm1_id%=0
    ' creation d'un formulaire de base
    CreateForm("Pronos Turf",400,350,-1,-1):OpenForm1_id%=CreateForm_return%
    HIDE OpenForm1_id%
    ' On ajoute les champs des pronostiqueurs
    ' J'ai repris ton exemple... ;) mais on peut très bien paramétrer le nb de pronostiqueurs...
    FOR i%=1 TO 6
      ObjectId%(): n% = ObjectId_return%
      ALPHA n%: PARENT n%,OpenForm1_id%
      TOP n%,i%*24:LEFT n%,10:CAPTION n%,"Pronostiqueur :"
      ObjectId%(): n% = ObjectId_return%
      EDIT n%: PARENT n%,OpenForm1_id%
      TOP n%,i%*24:LEFT n%,100
      ' là tu met ce que tu veux...
    NEXT i%
  END_IF
  SHOW OpenForm1_id%
END_SUB


' ------------------------------------------------------------------------------
' PROCEDURES D'ORDRE GENERAL
' ------------------------------------------------------------------------------
SUB CreateForm(Titre$,W%,H%,T%,L%)
  IF VARIABLE("CreateForm_return%")=0 THEN DIM CreateForm_return%
  DIM_LOCAL numForm%
  IF T%=-1 THEN T%=(SCREEN_Y-H%)/2
  IF L%=-1 THEN L%=(SCREEN_X-W%)/2

  ObjectId%(): numForm% = ObjectId_return%
  FORM numForm%
  WIDTH numForm%,W%:HEIGHT numForm%,H%
  TOP numForm%,T%:LEFT numForm%,L%
  CAPTION numForm%,Titre$
  CreateForm_return% = numForm%
END_SUB
' ------------------------------------------------------------------------------
' Renvoie un numéro d'objet libre
' ------------------------------------------------------------------------------
SUB ObjectId%()
  IF VARIABLE("ObjectId_return%")=0 THEN DIM ObjectId_return%
  ObjectId_return% = 1
  WHILE OBJECT_EXISTS(ObjectId_return%) = 1 : ObjectId_return% = ObjectId_return% + 1 : END_WHILE
END_SUB