'===========================================================================
' Subject: SCROLL LARGE PICTURES              Date: 04-17-99 (20:19)       
'  Author: Jernej Simoncic                    Code: VBWIN                  
'  Origin: jernej.simoncic@guest.arnes.si   Packet: VBWIN.ABC
'===========================================================================
' How to scroll large pictures in VB5
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"LARGEPIC.ZIP",4^6:Z&=2752:?STRING$(50,177);
U"%up()%9%'%I-%]on$K)q:;yn)%%%=3%%%0%I%%?8M2%84JFS5AM<t%*%tH\98Ml
U"[d:AtK3AwI#=1NZYy&agnjsNVI%NsSkhVbX:2%tbC'QtdJ;fHZS)*c]gGr_K$o_
U"lZb6]qa>xnH(#6MMNJ:/WVfUFBoSdmsE^Zbc\7/K0%/wMCSI1J-)QL?Gah=pEgi
U"(n;khgec7.1t[MK:#lQZ+%nMD0*h+XBjHiSRe>.(;2SOtx$cGR:^viP]Qj;c)nV
U"L##a2ZZGgr<AI;>WgylSiEQt>C7i]AQOREJvh><liDl4w\0Xpqju7a4a4oOaE\x
U"=7*kc0v*fqG3aF+K7,hS1q/lz[$RL%<<:#\V(w^'ZW*e#c?m#?s2L_him%4U4Vg
U"[8B;<HRV.#GA_0K6D*s-rgE&S=aTJQM&aotGL9L-,/$$o-N(75p]\)U>Pk<)NUH
U"(=zDg?3c;>X&pPfVwI#_52>Z5BD#J9%oTMNio.hP=i&bX]q]\P.Awllv-dvX9.R
U"glwZ/x,Jkd?)kK,*$tjMQhgN(.t&bXkHI]?VlcR]qmmn<1c=3*GKL9h54W=%lL,
U"fQh47,=BP'E\aM'17]h?sSKD\oc+YlmVB6kZjNcXQxdgkzp5tE3C?qGRkwWxu58
U"i2qJeEp,7&j)8dmavVMhH^fg^n.jP2/%QQ<Md:*)M*4'oB?sx<dxw>^/DawES4$
U"2.NpD=[?_,UEh4JN<.7IlsM#GC%-=8.Z52;QK[N0R+$Q3RM[mHXg_'(T80N=0M4
U"=v[HZ;UbKU:Ajkey1rSse)Zm5PL,'6I$+'+c,IJlH-H:=MAeT8TH=0rEGen#.n;
U"Y'0rhb<1*i1Qal_6d+YrL#U-zS&JE:-IO3f#+4wv^UN_OQpbpn;+G[VUg05IY=o
U"a<Ij.n\NGt:0il<Srx;>c:xm=h=,#ubvh1H/awCXwZ58Ua:Qn^.1]syJEf[a_k+
U"[x<mZZ;Dq&#)ZLw/:BQGoCbI2JSyz'*,34gH:<loF(?rGCuhHn76vZq(9;?j)OH
U"Si3P*9I/kF4jD8a:qLStrZ2o9-l562j.(_eBv+$$+)c+E9e[)>Q&WoQJ])ah2Lq
U"HPTJ8=f#&ojV0v#4pK\]^T:/uFc]&X$RSJ,cS'NpZJeXPNoX3?r%$$K[[v7(gWy
U"gq/g69*hwJc*9SLo&UaI-h/fS[I9CkwJf:q.r[kCIG2mWr&f;.UsCvn<%NA13g+
U"Rr:=t)<#TZKaxhz5^^;5p-2/WUJi%CvrEWd<(XlD1,O/3?eoa+?Zfm_$EVR5Yw:
U".((AbC3aK]$s[MfF7vm[V=>V9Qw=7m=Kr%nZHG'.j+:H]6S5+Z0/8iqJ*qPc<'&
U"F'4XC#n&reSW]X7Y-;#[3%[w,xt^Oyo:+q;Jt.Q*B/,o$vyr\18mnYjs,:bTtY/
U"LM&j86smoZJh2D;I-KyZlXwucM,0m,;Nn<eyhv1swMgXbU/KsO#it8eFYk&=)U.
U"\Mq%s4UG>[)-wXj<+:+Hq8\m<\J.R7(f-'h_GuJ4Et'<c++vmqPP-3<bPNSGd'h
U"Z&+CdeQcdLz_D[uJ.S>P([NgHC#.<RzVyF1(PS8ByL==9vq_&xO:_j2fw%Cs]\B
U"lh(LNoeI-+AZBQwSkD.D$c4[->q=VG\UN8r[k4[,m2SkmLH<5(lTp,UdR^(.'xD
U"up%()9%%'%-%2Gn$K3,,e+&j'%%';0%%%0%%%M?82%284FSh5AGV6O6=8mf59j'
U"Bl6.&XiM51j$TP4iZ1/MYCsWbSawqI&w;X#i/Iv*<,MxfE(sE.(icMF*>mH%/_/
U"/CoYv]NxmVK+^BF's92nHkJ4J$ETlB*cwme]KF$$^'MGXW=Pvwwpbd(,jGHwtHv
U"/NV[0G4$:imPct;-PHW02\(d^$e]K[V=.#WCty&)]^c:cu'bOrtaunhy.MZ'soN
U"b]>PflJGt_r;7pkZqWqAnJfgK>-1KXu[LpGb6)]S^BN=6i8#KcZw4G6_9LxdK87
U"nxZqv.r-2g]j35>iDpTj_tfLn,Ti8KJT1Yn.Z3FG]1qihM.G,tT-tFnwLfbl,Gf
U"lng?'l<K]MBMIg2>VHwJZ1Hv&2]Ao8/=M=g3REIG],a.V--_JWOf:/sEddd?+22
U"Nh***+-66R$R$$fFM4NN.[333]caamU-66tvD/wb$DlY'R+HkgjGP:6Hr,q9Y,W
U"uej)PpcW0kFY'nRHk:'.9=A)$bv9.=A$8%y9=A2$b%9.=A$0%v9=A)$Zx9.=A$0
U"l',x>EYW1QYq9YWg1[q9EYW1eYq9YWg1oq9EYW1yYq9YW=1-/X-*/]G,R(MU%]G
U"\i1v/?ih=aq9<YWU]:jP:632hY'JRHARi.\Y0E,xJA'L:*+(l3GMd/1]A']u9=C
U"A$.rRMUMk&\qGjGP:6h>'Sgui-$x,&Xq[jGP:6hDOY'R%HWN:#*+l3&qO/1>]A]
U"z#9=AP\\<(RuI:&8#vLL.*]mBBZ8$6-uh/ZNu.WScof<%WNwO]0G(b=NoKVw1?\
U"RD\iHp,SidE$P=k'#*1P^%=ogRw:rvlHhtkxh%K8PM,uTL.6XBtX$sdxixW=Lvn
U"'k8up%()9%%'%-%2]o$K68pHZ&2&%%%J'%%%0%%%M?82%284FS2E1?zCu,tR.U9
U"LL$RNUieqKagsH7j)0:ua2GWY;bT691;Gl-JtS;x\Nf0*k*h8iBGcF6bp&sDZ]0
U"D0[1nn0cM+IX5]3TtoH'\*o5i9A?g/Ft.-/p.ir$JR'<l\wqwoEC8&DX\Q3uRo'
U"8TTEmqb<+pWqaC2W^Jx<&Ae8$,#RQ*=?_&]9sp;RA[mI;+f&BBiD/]1f1xY(VJl
U"]u1UFuYgc*YlA$^'.HFuNS6[7SWi7A8nB3.ifzc)_*m]S?D2iQO??R/8O2GsP$$
U"(kLbuffJ/2%%/q38)'[)UG8di40bb/=?&ct=mNRsDDKoY\9nMrruvrqT=j%U_$e
U"OPr0aWnoV*avXaASLo9o'>G_HPQX#;oiURGDY]?bew0W2&CiCYn(VQ.>ksUr#6_
U"/BJ(4qaEM6u1*fl#STJQN)co2Zit,4&1Wf1ih]y1p:K.D*iNx3ez\s'f,up%()9
U"%%'%-%2^o$KV0$J.%T%%%%X%%%%0%%%M?82%284FS2E1FP]Aq3DdqR&)[zUYI%v
U"UYV]NvU/--MvU9*YPvF%+rO\Q;e'J$V_2m3y;D%*%up%&';%%9%'%I-%]on$K)q
U":;yn)%%%=3%%%0%%%%%%%%%&%%E%%%%%%%%M?82%284FS25A<u%p&';%%9%'#%-
U"%G_n$K,D,e+j['%%;%0%%0%%%%%%%%%%%%E%%%%C*%L%?82M%84FLS5AG%up&'%
U";%9%%'%-%2]o$K68pHZ&2&%%%J'%%%0%%%%%%%%%&%E%7%%[,I%%?8M2%84JFSE
U"1&?up&%';%9%%'%-L%^o$gK0$J&.T%%%%X%%%%0%%%%%%%%%&%E#%%%=#.%%?M8
U"2%8D4FSE)1Fup%*+%%%%%)%7)%]%7%%?.%%%%%
END SUB
CLOSE:IF S=4AND 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
