'=========================================================================== ' Subject: ADD ICON TO WIN95 TRAY Date: 02-09-99 (23:26) ' Author: Don Bradner Code: VBWIN ' Origin: dbirdman@redshift.com Packet: VBWIN.ABC '=========================================================================== ' TaskBar.ZIP for VisualBASIC 4.0 or better DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TASKBAR.ZIP",4^6:Z&=6532:?STRING$(50,177); U"%up()%9%'%R-%^3A+Dj8=72w*.%%c:%%%0%%%%yf%xpgf%wShq4x.'p,B[]5$7v U"Ox&pPZhKAS0b3Er54IA1g[D:H:GOW.Jp5SV/zkS^a]XIE(.+n/&()h_I>VDs*Z-3GGVKKMCu(6wj#6eT45Yw_-72]8)F]njYf#l=8;LK]M+JaY U"z7-\Fn\nQ1HanDLko/n=BF;6J_IMW4Uexhg=XR3t_V?XZi[_m9^4VaBkL(y]^_] U"^sHY.uJf*vWo-(=$7U%3mGx%k9ouO6;vz]lNzYI1bgt)#/YpDg#&xPsj+.#[qd8 U"4AkJ.hNNPU4naBj\6YEO7yl4-Cz;(XlL=j>)00eW^4U'>0&W6h1$.xcPKs'sF-?w*tRJ'W03%/Pwba23 U"T^A29=dmQSb)/86I%-YpCP&ddeS/a6v)[(*ed/NoB(o?+YX[:Ifg8bE4%([%G2.yO?qDNp^#UIC28aPl U"HsU>VT63E:>BeC=hDH&,;0f%nQTD--q4u*OHKA$YRp+t-bYbm%aCK6];C_rlBW7ji6q3a2Z$o$-ETh2p'dg)H;]I[+Ehspb#)IvPO*I U"tx]t$_qLdzb3ep)yF^U209A]DOZak6.('Zm,Xx=N$s\t);t.Pi=e\b%-3f*Ru\R U"ICpt\KbrkE.#??vfRl:45,PFZ$r9T21\7:L4YrA4]2XVW:bA0Xub2\*GBfcIQRp U"UiZo2+:?-LerW',XFl?x7HqUR*_qzKx+mFjSc9BW,#We<7qo#o:S=zt,\0rVElY U"%R$ZVZrEvdZ,aFdVjMHP&JDA U"Mh'eYDBZ8v,E[BD\kd(fZ'gQ=b1Y';EL'eFk3G==KR1)T#hj+I3vRD7*ib5# U"wj.rf8WKEOjGf00N5upNA19z&\I_Xhc3gR6kfzA9\uiaudPJs/hZhyhS;T$967c9JgB6(Kc-x#JV'(a9MvxQgjP<$8gH&B=pa:2I#7Q3w6:6 U"LbrREQ?eU&0E,[05:JY*\Z6g1^u*,j+i&0&d&*2c/FXSKP/4\y$P*8%eqkv+,jg;tck=R$*=vYhwBR$:J2/,5]WcOK+04wS U"J,>Pc;ZQh(hrrmLnrwBxkoVvHd=$7to U"mj*=.^*;UI0=Pe$r7/+'#;a?wh_?$vQ\?6E^'U+FrD1G5CuG^doTxdTQ0C*;r%v U"YRrGr[j'wb^N>d>xu%p()9%%'%-L%f4+mDf>b+ur&%%%+0%%%0%%%%yfx%pgfw# U"Skw'9fx*p[#v=xoG0F>OPFTOLpUsjT-uS)M&r(lGCiD7CBsB]d7.l5[g0\-Dk]3 U"Qqj_>Tg9=HY0YGhBI(6ip8Tq^eZ2PXJ4TOFf(7T?_r]JpVXThtLmTFhp0vChiaD U"ciB[9F1%+o>6D;xZC1/?;(f%SocHd^tEXg;mKA0l9WJ^oGV?=uZkF0G:WJ+o[ZI U"mQd6p\LTrt9w%(\e3#%sseQW309V+FeUXK4f1le$zN->#]OW#e.p?gjFlWhn.>%ZlaUZ8rG0^,9.%kXh U"xGCKR5Pv8ekLh%Bk,6X4e]JxP1MK6ckFT8QIuw[-q+7.H5euWbm8\&m19nD8&hf U"O:9rE9#Wg.)T6b]sRZo;*\SMT]r+p]:U1cIb$jiST[g9$gZe6Z=0SumtJd]Hi/0 U"YBO&D.BDnF*Q7A]T#zulGo20q0c^=7PNKLqNI3FhdHp,6R1x<\A&w/#>DhPdoBC U"JcY=5&>MM+vXcuxiwKbK1NgY].w9P8rD>-wUSD1JY]Y.w2XBu4TN;-wQ#k\\fxo U"Furx%%up(%)9%'#%-%fD4+Dka#+Q[%3%%z%$%%0%%%%y%fxpg%fwSkRwrV*D:BH U"x?Nw7z]tDMN0'TXkDzzT*Y#c.4QHSX3T4k+lEpb0D(HX-fOTIel\.D3IlV-=o/] U"bbyIY$)DJB]?mPBZ?/9gT71<'='vr4%(xHq<>hpu]gHM9nTkOHq9o(DNe-\lK.: U"47lWEBt^VNTd-fMM5'*QmXAF3/Q.X/VQlDIr6:xe)'iSs#Y:Ap2Ou1,5x1EkO.P U"fSCsu_:h>E)Fbo*l?Z3aU;1DU\hJ$)kj;Vt?,j?d8W0Qc;Ai1HR='0wIi'cXcN2R'oLkD4K;+_*H&;AVVGC>2*k+7])>+(zc\YMh953&h*(R0Co8&-?& U"F(R#e?P?f3cn U"g$r:b)PH-,]>E4w,s9UwW1/=Nh=*0/'>Bu.?e-0+dnJ(PsbU9Z0='PsuFJv\gV:6d)$0L#MBaY'3lfPxO)a]wrj17^P(u<]Nl/-t?0'I'hDQ>MK U"gg.98/GsSGt#Js\%4\3s6L;7i/\[Edl6\23(4vyFPT$Xh.*sOPT/H=3=S1K7V:q U"IS&?GVhAX96XLx8-\STY6x4F:[vdcfg#_7]NP6_(JkC9Y)c%HbJ+:aMUf\)-[;( U"7,0r$#MMsUaWmQ4<-zt(4bw-<-amSyZZw=vx>1^_If$/5G67'#k1$3JS0HhWnjb)nsHM-- U"='I[U1E^^H+P-%EQ7k;T)Q.BZytT20pPG.n:$tZIvio3Jy&#-nsFWr&-[guN9Er U"io>/RONEF':Ug\<,3>BfeF(b?&$[8W,A#HOo\^_xRLn%uPC%:51'U7nP&/^PlXu U"Wflm9tsGRXS>&=A1U.2F2H3)8cIFGMsDM=L^O*hp^v(/A#d(\/N*[hyP;l?A[>/ U"T[;Gbe?I'Jqv9mU%=r*ZNr?%eC#bzN5Ba1PRe7#,W^aK?WFyIm U"W8hx^(eu?ukJj98Q_=\+f^1k-3SgmNx$B)7Q+>=H&KQw:MPBIs04HB+aW2]4u/z U"zk&5'Gc##sT)Q:ojC9s(7qQ78]oUV/_BWb9i\FtaMWbOz2BL:1nEt+.3vcZR7[2 U":&48YEKxIoSx9[SoJ+AP)9M?v_\MHSDb.arfHN^5W,LMcYMuZ%9KL%.+?7Ip)bB U"FX8-)(+%u5bz8wLqIY:g\N1/hdYUf#b_gdg>$k),%,;X2%P+)[Py.bIsP7 U"^.J(zMj=/SJJM]k:)(p.nmwpk\ U"JTNO(V.KYH5flR3dXKBbdc+k,0ii;LMlUReL)^0TmDbRY)FFl3Ie^,\;#]b&s U"%tW'--U_)+i(P<\Yp'4hd)hj%I)pXjJ:,##OG]i2qH9y50Pr.+Z,Vx7p^vb=Jac U"a,/vD1&Wc/[Ncw'Os'mM(ihnm,K#5JCDQESjr)6BThI6F<%u/WVsQ/ U"_imk66=h?h76:i-N(ZiU-\Ac+%-GbA2i*ilR U"(=Kr;_w:D*CQ1;T#RN)j)nR]+Ths\go=$>Dmf_CHR/C4[sk,6vl(0fETjl'1,W\ U"=aD\jN)XljBkkeqtofnhOuUx_^6Ep*28Nkb*=PE8YpBf^E[XiSsugtw/C/(O2Cf U"l?mDWSK0qf?,x^[9d6M1]G=Adyvzr3U9%F(T6.IVshgS%3R<5:kbn$)keG#R.w?n)F.$Q0Yl:B\G<%x?rBfDN]v/2=Rd:']UVoJnitiH(n&mVDX$hP=exr/:QJ8%wO2wRH.&>;;-eWGs5 U"FPuO&T[1.1R2f=;$S5VE?Na=^RW:.twLKkmp;Vs9E>f U"%MOzypjdCwbMg/':tLB.WYGWpW7;x-cR>%)#]'_])D5(kM?qCt^=vlq=CmVl&Nj U",R:$+?0$c)df^^tD-uC_J.+_A7s1X(6B8/2T2krn=)O>//Its6IHU39'Wa->Nx+MtR1zq9[Mx'(qNM U"H;QYtMu^w8m6H?Mq,Gs_\GP#/^V1-eAMY,T=iN3lL_KHRSk62)?bji&)#Ts^:aN U"JF44lRu+V5v/)XI$f\EkEw$PtOET)ZI-$I5JAL3NMTy;BG[P[g:u1T6PO-/X?d? U"h4;Eo^o4wbg^twv(\rd,&sfj'E[1gkGfhTwNA8Q>?lobzBVhGozM48b$OP<[;Xy U"j]U(vhSE*KBuun#,%qnG(/#UVz&4?$BX++s-2\G.ROFuWFedE1Rcp4*RdkLLN.1 U"tE:EPEg//zXAXN72Yb3>5b.GeaG:ZZ__:/Gb-kyP*SxT)S6XAOnyRZ+VYXneF[oUz;)$7hDq%9,if%VYT]*q:ID^Y^4QeA:($AyMpVG%G4;Gl;LQ2t U"yXb4$,XIDTRYrf)m*lR14KyFPUmEhS4hQk2%,.QnYz5OrC4\f>qB<_wU^a-OlS9 U"qkEr,=SA'XD4Hc2i:g'Q]-$$ursW6g\a3&u8x6'vr4+iQbyZ)npnb>*l*e>=52Qzr=xeaW3w%4;vncj>8Q8fL7/^BtJNQAx.bie/4+U;)8jV6A?rrseVg?J*:2u$?'MS% U"]aKUzT/HV)0g&6*p?JR(qd.%+f4Qe,uBMW5v[24d1#3G;E%_ZzFlu$)4DJF(y(J U"$vrvPBe[ U"7P'Rthh0tX-0pF-i-cll'FLv'0i_<_]SfM_SY7t;I.0V,z:vgn'r?soZQ7lPZ3\ U"UdwR^d9T'.IgN>9HIWH,nkR7iOl1hB84BMKIbr\KH.;4BF+rPYT4Y5okYwmIxEV U"S7bj$E)7-hW*t/k_:G+1f3v/gF?[.yf]idn#qo,B0T=d-h.0ElG?v;%DU;$rc4T U"\)u24V9ksx%J$s>5&ox[JsW(YONVZ7v&=id6z--W#icd6r-iWzqnKWG)>_\7Pta U"^AdeK8Yy4cx;MD?ig1qsu) U":1pWsGu'vjZ^/GO:VZEi1d*3N^pW_xX%up()%9%'%R-%>4J+DeF,QR2&.%%4&%% U"%0%%%%yf%xpgf.wS%g.uj]r+t+k[?q[3&3b]DW1sq2>Y#'nzF==^t(1ym U"Nr6,R9_W71jK%giq.WF1*eIIs(/6;=KNG5Xhi/_F(1k37d^$fgJ2tK;aW6R\ukAIOjL<&OJ^,&AToO_8OpZC6>'a,up%&'9%%9%'%R-%^3A+Dj8 U"=72w*.%%c:%%%0%%%%%%%%%&%%E%%%%%%%%%yfxp%gfwS%hqxu%p&'9%%9%'#%- U"%f)4+Dfc>bur%&%%+%0%%0%%%%%%%%%%%%E%%%%L+%%%yfx%pgfw#Skw'%up&'% U"9%9%%'%-%2f4+D8k#+Q'[3%%%z$%%%0%%%%%%%%%&%E%%%%n-%%%yf%xpgf%wSk U"w%rup&%'9%9%%'%-O%>4+LDeFQ'R2&%(%4&%%%0%%%%%%%%%&%E%%%%y%<%%y%f U"xpg#fwS%%guup%*+%%%%%)%7)%]%.%%Y=%%%%% END SUB CLOSE:IF S=254AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad! SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32 IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1 S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB