If OpenWindow(0, 100, 100, 640, 480,"menu",  #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget) And CreateGadgetList(WindowID(0))  

ButtonGadget(1, 50, 50, 400, 40, "New Game", #PB_Button_Default)
ButtonGadget(2, 50, 100, 400, 40, "Creatures", #PB_Button_Default)

Repeat
A= WaitWindowEvent( )

If A=1
OpenWindow(3, 100, 100, 640, 480, "game", #PW_Window_MinimaizeGadget | #PW_Window_MaximaizeGadfet) And CreateGadgetList(WindowID(3))

If A=#PB_Event_CloseWindow
Q=1
EndIf

Until Q=1  

EndIf  
End