طريقة عمل الاسطوانه تظهر من الخفاء ببرنامج اوتو بلاى ميديل استوديو

op = 0;
Handle = Application.GetWndHandle();
DLL.CallFunction("AutoPlay\\Docs\\wTrans.dll", "SetWindowTransparency", Handle..","..op, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)

while (op > 0) do
    op = op - 1;
    DLL.CallFunction("AutoPlay\\Docs\\wTrans.dll", "SetWindowTransparency", Handle..","..op, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)

while (op < 255) do
    op = op + 1;
    DLL.CallFunction("AutoPlay\\Docs\\wTrans.dll", "SetWindowTransparency", Handle..","..op, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)