EnableExplicit Global HyperLinkProc Global hCurcor_Arrow = LoadCursor_(0, #IDC_ARROW) Procedure HyperLinkProc(hWnd, uMsg, wParam, lParam) Select uMsg Case #WM_SETCURSOR SetCursor_(hCurcor_Arrow) ProcedureReturn 1 EndSelect ProcedureReturn CallWindowProc_(HyperLinkProc, hWnd, uMsg, wParam, lParam) EndProcedure If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) HyperLinkGadget(1, 10, 10, 480, 20, "http://www.purebasic.de - Ohne Hand-Cursor", 0) HyperLinkGadget(2, 10, 30, 480, 20, "http://www.google.de - Mit Hand-Cursor", 0) HyperLinkProc = SetWindowLongPtr_(GadgetID(1), #GWL_WNDPROC, @HyperLinkProc()) Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf