If OpenWindow(0, 0, 0, 476, 430, "Переводчик", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered)  
  WebGadget(0, 0, 0, 495, 495, "http://translate.imtranslator.net/")  
  EndIf  

Repeat  
  Event = WaitWindowEvent()  
  Select Event  
  Case #PB_Event_CloseWindow  
  EventWindow = EventWindow()  
  If EventWindow = 0  
  CloseWindow(0)  
  Break  
  EndIf  
  EndSelect  
ForEver