EnableExplicit Define EventID Define hcur_Arrow Define hcur_Cross Define hcur_Arrow_Copy Define hcur_Cross_Copy Define hcur_Arrow2 Define hcur_Cross2 hcur_Arrow = LoadCursor_(0, #IDC_ARROW) hcur_Arrow_Copy = CopyImage_(hcur_Arrow, #IMAGE_CURSOR, 0, 0, #LR_COPYFROMRESOURCE) hcur_Cross = LoadCursor_(0, #IDC_CROSS) hcur_Cross_Copy = CopyImage_(hcur_Cross, #IMAGE_CURSOR, 0, 0, #LR_COPYFROMRESOURCE) If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ButtonGadget(1, WindowWidth(0)-420, WindowHeight(0)-30, 200, 20, "Mauscursor verändern", 0) ButtonGadget(2, WindowWidth(0)-210, WindowHeight(0)-30, 200, 20, "Mauscursor wiederherstellen", 0) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_Gadget Select EventGadget() Case 1 hcur_Cross2 = CopyImage_(hcur_Cross_Copy, #IMAGE_CURSOR, 0, 0, #LR_COPYFROMRESOURCE) SetSystemCursor_(hcur_Cross2, #OCR_NORMAL) Case 2 hcur_Arrow2 = CopyImage_(hcur_Arrow_Copy, #IMAGE_CURSOR, 0, 0, #LR_COPYFROMRESOURCE) SetSystemCursor_(hcur_Arrow2, #OCR_NORMAL) EndSelect EndIf If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf