=Um1K6G0TmC*sp(ld)[*d*_{vP;MegkJfA(T4+)ptvz@glAXAN*0r=cHEjidq@Kx)?nFH5h}TCF#rl8jpV0qcec4F?Ma]j{gudm(W8S:Z@JNd.]Q^:NwVKzxC_qkwwOiS4G.dTkY0o$)C3l@(Cy8-RkrT/jbAsk{SZoq!wS=/Z#Z,x^rO;$6VOvbFU3N()c%y9(IQ86*zApv!Lee*)3bz:3Ddda[GaZfXdNO$}lw2y$?A5X_(#1ypDa=xPE{vFMH=A}?A,:!zp%)x]CHNK:MmazUR2HFj4S+6/Y]qBBi.-m#;Cv4$][VfW;F^:u(l{nI#}0?;(i}*%kL!8/@W_+PKa,jFn]a-F@Ze[r+=a:t0;^7,?Wtlr(2pYTUn+wI/Q+@s-UF_J4;qU!OF8/-zz?Wh,_#rn2V#D^oyft4h:[h#C+Wb*,}WgspuLAovks=K/b%y[k]CqmIFG(d@2BS*S4LJ[cCFKvuTH)w3xZ%Du;M#/uX0o=tkL=V+X272GxV%o.ucZhtwoDpvx]xKk0V8d=iU3g^VwaK8{2C$b8%O#6A]y06Q,/[CKIKLg.F)E]e;?O,D:F.2Z0o4#aOw.%YfaUu1g-^p57MlTyQ4f;G,#i[_3ln if user32==nil then user32=loadLib('user32.dll') end function MoveForm(cc) user32.ReleaseCapture() user32.SendMessageA(cc.Handle, 0x0112, 0xF010 + 0x002, 0) end function SetClassLong(hwnd, nIndex, dwNewLong) user32.call('SetClassLongA',hwnd, nIndex, dwNewLong) end function GetClassLong(hwnd, nIndex) user32.call('GetClassLongA',hwnd, nIndex) end function SetFormShadow(Form,num) CS_DropSHADOW = num GCL_STYLE = (-26) Get=(GetClassLong(Form.Handle, GCL_STYLE) or CS_DropSHADOW) SetClassLong(Form.Handle, GCL_STYLE, Get) end function SetTop(form) form.FormStyle='fsNormal' sleep(1) form.FormStyle='fsSystemStayOnTop'--'fsStayOnTop' end UDF1.OnMouseDown=function() MoveForm(UDF1) end UDF1.CELabel1.OnClick=function(sender) beep() closeCE() end UDF1.CELabel2.OnClick=function(sender) if sender.Caption=='Shadow on' then sender.Caption='Shadow off' SetFormShadow(UDF1,0x20000) else sender.Caption='Shadow on' SetFormShadow(UDF1,0) end UDF1.Visible=false UDF1.Visible=true SetTop(UDF1) end UDF1.Show()