EnableExplicit Define EventID Define hanim Define hshell hshell = LoadLibrary_("setupapi.dll") If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) hanim = CreateWindowEx_(0, "SysAnimate32", "", #ACS_AUTOPLAY | #ACS_CENTER | #ACS_TRANSPARENT | #WS_CHILD | #WS_VISIBLE | #WS_CLIPCHILDREN | #WS_CLIPSIBLINGS, 10, 10, 280, 100, WindowID(0), 0, GetModuleHandle_(0), 0) SendMessage_(hanim, #ACM_OPEN, hshell, 60) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow FreeLibrary_(hshell) End EndIf ForEver EndIf ;Liste der Animationen: http://www.purebasic.fr/german/viewtopic.php?f=8&t=24780