

If OpenWindow(0, 400, 200, 300, 200, #PB_Window_SystemMenu, "dessin")
If CreateImage(0, 300, 200)
If StartDrawing(ImageOutput())
;dessin à insérer
StopDrawing()
EndIf
EndIf
CreateGadgetList(WindowID(0))
ImageGadget(0, 0, 0, 0, 0, ImageID())
Repeat
EventID = WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow
EndIf
End


