hyperlinks

; hyperlinks
If OpenWindow(0, 0, 0, 270, 160, "HyperlinkGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ; почему она не подчёркнутая?
  HyperLinkGadget(1, 10, 30, 250,20,"at02.ru", RGB(0,0,255), #PB_HyperLink_Underline)
  SetGadgetFont(1, LoadFont(0, "Arial", 12))
  Repeat
  ev = WaitWindowEvent()
  If ev = #PB_Event_Gadget And EventGadget() = 1
RunProgram("http://at02.ru")
EndIf
; почему оно не закрывается с первого раза?
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf