merci d'avance pour votre réponse

Code : Tout sélectionner
If OpenWindow(0,0,0,270,140,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Text")
CreateGadgetList(WindowID(0))
TextGadget(0,10, 10,250,20,"bla bla...")
Repeat
Event = WaitWindowEvent()
If Event = #WM_PAINT And StartDrawing( WindowOutput() )
DrawingMode(1)
FrontColor($FF, $00, $00)
DrawingFont( GetGadgetFont(0) )
Locate(10, 30)
DrawText("bla bla...")
StopDrawing()
EndIf
Until Event = #PB_Event_CloseWindow
EndIf