'METODO CHE VINCE NON SI CAMBIA + giocata
'07/06/2022
ColoreTesto 2
Scrivi String(37,32) & "METODO CHE VINCE NON SI CAMBIA + giocata",1
Scrivi String(45,32) & "List.by DjNomade",1
ColoreTesto 0
Sub Main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste1(5),poste2(5),poste3(5),poste4(5),poste5(5),poste6(5),poste7(5),poste8(5),poste9(5),poste10(5)
Dim poste11(5),poste12(5),poste13(5),poste14(5),poste15(5),poste16(5),poste17(5),poste18(5),poste19(5),poste20(5)
Dim poste21(5),poste22(5),poste23(5),poste24(5),poste25(5),poste26(5),poste27(5),poste28(5),poste29(5),poste30(5)
Dim poste31(5),poste32(5)
y = CInt (InputBox("QUANTE ESTRAZIONE VUOI CONTROLLARE ?","",10))
fin = EstrazioneFin
ini = EstrazioneFin-y 'fin - 30 '6501 BA-VE' esempio****6496 GE-MI' esempio****6538 MI-NA' esempio
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)'6
n2 = Estratto(es,r1,p2)'75
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
n3 = Estratto(es,r2,p3)'
n4 = Estratto(es,r2,p4)'
n5 = Distanza(Minimo(n1,n2),Massimo(n3,n4))'distanza diag
n6 = Distanza(Massimo(n1,n2),Minimo(n3,n4))'distanza diag
n7 = Distanza(n1,n2)'distanza orizz
n8 = Distanza(n3,n4)'distanza orizz
n9 = Distanza(Minimo(n1,n2),Minimo(n3,n4))'Distanza vert
n10 =Distanza(Massimo(n1,n2),Massimo(n3,n4))'Distanza vert
n11 = Fuori90(Massimo(n1,n2)+Minimo(n3,n4))'somma diag
n12 =Fuori90(Minimo(n1,n2)+Massimo(n3,n4))'somma diag
If n7=n8 And (n5=n7 Or n6=n7) And n9 = n10 And n11 = n12 And n1<>n3 And n1<>n4 And n2<>n3 And n2<>n4 Then
so1=Fuori90(n7+n9) '14+28=42
nn1=Fuori90(Minimo(n1,n2)+so1)' 2+42=44
nn2=Fuori90(Massimo(n1,n2)+so1)'16+42=58
nn3=Fuori90(Minimo(n3,n4)+so1)' 64+42=16
nn4=Fuori90(Massimo(n3,n4)+so1) '78+42=30
mm1=Fuori90(nn1+nn2):mm2=Fuori90(nn2+nn4):mm3=Fuori90(nn3+nn4):mm4=Fuori90(nn1+nn3)
ss1=Fuori90(nn1+nn4):ss2=Fuori90(nn2+nn3):ss3=Fuori90(mm1+mm3):ss4=Fuori90(mm2+mm4)
'************************************
so2=Fuori90(n7+90-n9) '14+(90-28)=76
nn11=Fuori90(Minimo(n1,n2)+so2)' 2+76=78
nn22=Fuori90(Massimo(n1,n2)+so2)'16+76=02
nn33=Fuori90(Minimo(n3,n4)+so2)' 64+76=50
nn44=Fuori90(Massimo(n3,n4)+so2) '78+76=64
mm11=Fuori90(nn11+nn22):mm22=Fuori90(nn22+nn44):mm33=Fuori90(nn33+nn44):mm44=Fuori90(nn11+nn33)
ss11=Fuori90(nn11+nn44):ss22=Fuori90(nn22+nn33):ss33=Fuori90(mm11+mm33):ss44=Fuori90(mm22+mm44)
'************************************
so3=Fuori90(n7+n7) '14+14)=28
nn111=Fuori90(Minimo(n1,n2)+so3)' 2+28=30
nn222=Fuori90(Massimo(n1,n2)+so3)'16+28=44
nn333=Fuori90(Minimo(n3,n4)+so3)' 64+2802
nn444=Fuori90(Massimo(n3,n4)+so3) '78+28=16
mm111=Fuori90(nn111+nn222):mm222=Fuori90(nn222+nn444):mm333=Fuori90(nn333+nn444):mm444=Fuori90(nn111+nn333)
ss111=Fuori90(nn111+nn444):ss222=Fuori90(nn222+nn333):ss333=Fuori90(mm111+mm333):ss444=Fuori90(mm222+mm444)
'************************************************
' A1
so4=Fuori90(90-n7+n9) '90-14+28=14
nn1111=Fuori90(Minimo(n1,n2)+so4)' 2+14=16
nn2222=Fuori90(Massimo(n1,n2)+so4)'16+14=30
nn3333=Fuori90(Minimo(n3,n4)+so4)' 64+14=78
nn4444=Fuori90(Massimo(n3,n4)+so4) '78+14=02
mm1111=Fuori90(nn1111+nn2222):mm2222=Fuori90(nn2222+nn4444):mm3333=Fuori90(nn3333+nn4444):mm4444=Fuori90(nn1111+nn3333)
ss1111=Fuori90(nn1111+nn4444):ss2222=Fuori90(nn2222+nn3333):ss3333=Fuori90(mm1111+mm3333):ss4444=Fuori90(mm2222+mm4444)
'************************************
' B1
so5=Fuori90(90-n7+90-n9) '90-14+(90-28)=48
nn11111=Fuori90(Minimo(n1,n2)+so5)' 2+48=78
nn22222=Fuori90(Massimo(n1,n2)+so5)'16+48=02
nn33333=Fuori90(Minimo(n3,n4)+so5)' 64+48=50
nn44444=Fuori90(Massimo(n3,n4)+so5) '78+48=64
mm11111=Fuori90(nn11111+nn22222):mm22222=Fuori90(nn22222+nn44444):mm33333=Fuori90(nn33333+nn44444):mm44444=Fuori90(nn11111+nn33333)
ss11111=Fuori90(nn11111+nn44444):ss22222=Fuori90(nn22222+nn33333):ss33333=Fuori90(mm11111+mm33333):ss44444=Fuori90(mm22222+mm44444)
'************************************
' C1
so6=Fuori90(90-n7+90-n7) '76+76)=62
nn111111=Fuori90(Minimo(n1,n2)+so6)' 2+62=64
nn222222=Fuori90(Massimo(n1,n2)+so6)'16+62=78
nn333333=Fuori90(Minimo(n3,n4)+so6)' 64+62=36
nn444444=Fuori90(Massimo(n3,n4)+so6) '78+62=50
mm111111=Fuori90(nn111111+nn222222):mm222222=Fuori90(nn222222+nn444444):mm333333=Fuori90(nn333333+nn444444):mm444444=Fuori90(nn111111+nn333333)
ss111111=Fuori90(nn111111+nn444444):ss222222=Fuori90(nn222222+nn333333):ss333333=Fuori90(mm111111+mm333333):ss444444=Fuori90(mm222222+mm444444)
If ss111+nn111=90_
Or ss111+nn222=90_
Or ss111+nn333=90_
Or ss111+nn444=90_
Or ss111+mm111=90_
Or ss111+mm222=90_
Or ss111+mm333=90_
Or ss111+mm444=90_
Or ss333+nn111=90_
Or ss333+nn222=90_
Or ss333+nn333=90_
Or ss333+nn444=90_
Or ss333+mm111=90_
Or ss333+mm222=90_
Or ss333+mm333=90_
Or ss333+mm444=90_
Or ss111111+nn111111=90_
Or ss111111+nn222222=90_
Or ss111111+nn333333=90_
Or ss111111+nn444444=90_
Or ss111111+mm111111=90_
Or ss111111+mm222222=90_
Or ss111111+mm333333=90_
Or ss111111+mm444444=90_
Or ss333333+nn111111=90_
Or ss333333+nn222222=90_
Or ss333333+nn333333=90_
Or ss333333+nn444444=90_
Or ss333333+mm111111=90_
Or ss333333+mm222222=90_
Or ss333333+mm333333=90_
Or ss333333+mm444444=90 Then
casi = casi + 1
Scrivi
Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi es & " < " &DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > Ambo " & Format2(n1) & "." & Format2(n2) & " >",1
Scrivi es & " < " &DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > Ambo " & Format2(n3) & "." & Format2(n4) & " >",1
Scrivi
Scrivi" " &Format2( Minimo(n1,n2))& "." &Format2(Massimo(n1,n2)),1
Scrivi" " &Format2(Minimo(n3,n4))& "." &Format2(Massimo(n3,n4)),1
Scrivi
Scrivi " >Distanze Orizzontali "& Format2(n7) & " - " & Format2(n8),1
Scrivi " >Distanze Verticali "& Format2(n9) & " - " & Format2(n10),1
Scrivi " >Distanze Diagonali "& Format2(n5) & " - " & Format2(n6),1
Scrivi " >Somme Diagonali "& Format2(n11) & " - " & Format2(n12),1
Scrivi
Scrivi " A B C ",1
Scrivi ""& Format2(nn1) &" "& Format2(nn2) &"|"& Format2(mm1) &" "& Format2(mm2)&" "& Format2(nn11) &" "& Format2(nn22) &"|"& Format2(mm11) &" "& Format2(mm22)&" "& Format2(nn111) &" "& Format2(nn222) &"|"& Format2(mm111) &" "& Format2(mm222),1
Scrivi ""& Format2(nn4) &" "& Format2(nn3) &"|"& Format2(mm3) &" "& Format2(mm4)&" "& Format2(nn44) &" "& Format2(nn33) &"|"& Format2(mm33) &" "& Format2(mm44)&" "& Format2(nn444) &" "& Format2(nn333) &"|"& Format2(mm333) &" "& Format2(mm444),1
Scrivi "---------- ----------- ------------",1
Scrivi " "& Format2(ss1) &" | "& Format2(ss3) &" "& Format2(ss11) & " | "& Format2(ss33) &" "& Format2(ss111) &" | "& Format2(ss333) ,1
Scrivi
Scrivi
ColoreTesto 2
poste1(2)=0
'Erase poste1
ambo1=0:ambo2=0:ambo3=0:ambo4=0:ambo5=0:ambo6=0:ambo7=0:ambo8=0:ambo9=0:ambo10=0
ambo11=0:ambo12=0:ambo13=0:ambo14=0:ambo15=0:ambo16=0:ambo17=0:ambo18=0:ambo19=0:ambo20=0
ambo21=0:ambo22=0:ambo23=0:ambo24=0:ambo25=0:ambo26=0:ambo27=0:ambo28=0:ambo29=0:ambo30=0
ambo31=0:ambo32=0:ambo33=0:ambo34=0:ambo35=0:ambo36=0:ambo37=0:ambo38=0:ambo39=0:ambo40=0
ambo41=0:ambo42=0:ambo43=0:ambo44=0:ambo45=0:ambo46=0:ambo47=0:ambo48=0:ambo49=0:ambo50=0
ambo51=0:ambo52=0:ambo53=0:ambo54=0:ambo55=0:ambo56=0:ambo57=0:ambo58=0:ambo59=0:ambo60=0
ambo61=0:ambo62=0:ambo63=0:ambo64=0
If ss111+nn111=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(nn111)&" =90",1 :ambo1=ss111: ambo2=nn111

oste1(2) = 1 Else poste1(2) = 0
If ss111+nn222=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(nn222)&" =90",1 :ambo3=ss111: ambo4=nn222

oste2(2) = 1 Else poste2(2) = 0
If ss111+nn333=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(nn333)&" =90",1 :ambo5=ss111: ambo6=nn333

oste3(2) = 1 Else poste3(2) = 0
If ss111+nn444=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(nn444)&" =90",1 :ambo7=ss111: ambo8=nn444

oste4(2) = 1 Else poste4(2) = 0
If ss111+mm111=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(mm111)&" =90",1 :ambo9=ss111: ambo10=mm111

oste5(2) = 1 Else poste5(2) = 0
If ss111+mm222=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(mm222)&" =90",1 :ambo11=ss111: ambo12=mm222

oste6(2) = 1 Else poste6(2) = 0
If ss111+mm333=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(mm333)&" =90",1 :ambo13=ss111: ambo14=mm333

oste7(2) = 1 Else poste7(2) = 0
If ss111+mm444=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(mm444)&" =90",1 :ambo15=ss111: ambo16=mm444

oste8(2) = 1 Else poste8(2) = 0
If ss333+nn111=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(nn111)&" =90",1 :ambo17=ss333: ambo18=nn111

oste9(2) = 1 Else poste9(2) = 0
If ss333+nn222=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(nn222)&" =90",1 :ambo19=ss333: ambo20=nn222

oste10(2) = 1 Else poste10(2) = 0
If ss333+nn333=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(nn333)&" =90",1 :ambo21=ss333: ambo22=nn333

oste11(2) = 1 Else poste11(2) = 0
If ss333+nn444=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(nn444)&" =90",1 :ambo23=ss333: ambo24=nn444

oste12(2) = 1 Else poste12(2) = 0
If ss333+mm111=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(mm111)&" =90",1 :ambo25=ss333: ambo26=mm111

oste13(2) = 1 Else poste13(2) = 0
If ss333+mm222=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(mm222)&" =90",1 :ambo27=ss333: ambo28=mm222

oste14(2) = 1 Else poste14(2) = 0
If ss333+mm333=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(mm333)&" =90",1 :ambo29=ss333: ambo30=mm333

oste15(2) = 1 Else poste15(2) = 0
If ss333+mm444=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(mm444)&" =90",1 :ambo31=ss333: ambo32=mm444

oste16(2) = 1 Else poste16(2) = 0
ColoreTesto 0
Scrivi
Scrivi " A1 B1 C1 ",1
Scrivi ""& Format2(nn1111) &" "& Format2(nn2222) &"|"& Format2(mm1111) &" "& Format2(mm2222)&" "& Format2(nn11111) &" "& Format2(nn22222) &"|"& Format2(mm11111) &" "& Format2(mm22222)&" "& Format2(nn111111) &" "& Format2(nn222222) &"|"& Format2(mm111111) &" "& Format2(mm222222),1
Scrivi ""& Format2(nn4444) &" "& Format2(nn3333) &"|"& Format2(mm3333) &" "& Format2(mm4444)&" "& Format2(nn44444) &" "& Format2(nn33333) &"|"& Format2(mm33333) &" "& Format2(mm44444)&" "& Format2(nn444444) &" "& Format2(nn333333) &"|"& Format2(mm333333) &" "& Format2(mm444444),1
Scrivi "---------- ----------- ------------",1
Scrivi " "& Format2(ss1111) &" | "& Format2(ss3333) &" "& Format2(ss11111) & " | "& Format2(ss33333) &" "& Format2(ss111111) &" | "& Format2(ss333333) ,1
Scrivi
Scrivi
ColoreTesto 2
If ss111111+nn111111=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(nn111111)&" =90",1 :ambo33=ss111111: ambo34=nn111111

oste17(2) = 1 Else poste17(2) = 0
If ss111111+nn222222=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(nn222222)&" =90",1 :ambo35=ss111111: ambo36=nn222222

oste18(2) = 1 Else poste18(2) = 0
If ss111111+nn333333=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(nn333333)&" =90",1 :ambo37=ss111111: ambo38=nn333333

oste19(2) = 1 Else poste19(2) = 0
If ss111111+nn444444=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(nn444444)&" =90",1 :ambo39=ss111111: ambo40=nn444444

oste20(2) = 1 Else poste20(2) = 0
If ss111111+mm111111=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(mm111111)&" =90",1 :ambo41=ss111111: ambo42=mm111111

oste21(2) = 1 Else poste21(2) = 0
If ss111111+mm222222=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(mm222222)&" =90",1 :ambo43=ss111111: ambo44=mm222222

oste22(2) = 1 Else poste22(2) = 0
If ss111111+mm333333=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(mm333333)&" =90",1 :ambo45=ss111111: ambo46=mm333333

oste23(2) = 1 Else poste23(2) = 0
If ss111111+mm444444=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(mm444444)&" =90",1 :ambo47=ss111111: ambo48=mm444444

oste24(2) = 1 Else poste24(2) = 0
If ss333333+nn111111=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(nn111111)&" =90",1 :ambo49=ss333333: ambo50=nn111111

oste25(2) = 1 Else poste25(2) = 0
If ss333333+nn222222=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(nn222222)&" =90",1 :ambo51=ss333333: ambo52=nn222222

oste26(2) = 1 Else poste26(2) = 0
If ss333333+nn333333=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(nn333333)&" =90",1 :ambo53=ss333333: ambo54=nn333333

oste27(2) = 1 Else poste27(2) = 0
If ss333333+nn444444=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(nn444444)&" =90",1 :ambo55=ss333333: ambo56=nn444444

oste28(2) = 1 Else poste28(2) = 0
If ss333333+mm111111=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(mm111111)&" =90",1 :ambo57=ss333333: ambo58=mm111111

oste29(2) = 1 Else poste29(2) = 0
If ss333333+mm222222=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(mm222222)&" =90",1 :ambo59=ss333333: ambo60=mm222222

oste30(2) = 1 Else poste30(2) = 0
If ss333333+mm333333=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(mm333333)&" =90",1 :ambo61=ss333333: ambo62=mm333333

oste31(2) = 1 Else poste31(2) = 0
If ss333333+mm444444=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(mm444444)&" =90",1 :ambo63=ss333333: ambo64=mm444444

oste32(2) = 1 Else poste32(2) = 0
ColoreTesto 0
Scrivi
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11
k = 12
co = 0
nu1(1) = ambo1
nu1(2) = ambo2
co=co+1
ImpostaGiocata co,nu1,ruote,poste1,k
nu1(1) = ambo3
nu1(2) = ambo4
co=co+1
ImpostaGiocata co,nu1,ruote,poste2,k
nu1(1) = ambo5
nu1(2) = ambo6
co=co+1
ImpostaGiocata co,nu1,ruote,poste3,k
nu1(1) = ambo7
nu1(2) = ambo8
co=co+1
ImpostaGiocata co,nu1,ruote,poste4,k
nu1(1) = ambo9
nu1(2) = ambo10
co=co+1
ImpostaGiocata co,nu1,ruote,poste5,k
nu1(1) = ambo11
nu1(2) = ambo12
co=co+1
ImpostaGiocata co,nu1,ruote,poste6,k
nu1(1) = ambo13
nu1(2) = ambo14
co=co+1
ImpostaGiocata co,nu1,ruote,poste7,k
nu1(1) = ambo15
nu1(2) = ambo16
co=co+1
ImpostaGiocata co,nu1,ruote,poste8,k
nu1(1) = ambo17
nu1(2) = ambo18
co=co+1
ImpostaGiocata co,nu1,ruote,poste9,k
nu1(1) = ambo19
nu1(2) = ambo20
co=co+1
ImpostaGiocata co,nu1,ruote,poste10,k
nu1(1) = ambo21
nu1(2) = ambo22
co=co+1
ImpostaGiocata co,nu1,ruote,poste11,k
nu1(1) = ambo23
nu1(2) = ambo24
co=co+1
ImpostaGiocata co,nu1,ruote,poste12,k
nu1(1) = ambo25
nu1(2) = ambo26
co=co+1
ImpostaGiocata co,nu1,ruote,poste13,k
nu1(1) = ambo27
nu1(2) = ambo28
co=co+1
ImpostaGiocata co,nu1,ruote,poste14,k
nu1(1) = ambo29
nu1(2) = ambo30
co=co+1
ImpostaGiocata co,nu1,ruote,poste15,k
nu1(1) = ambo31
nu1(2) = ambo32
co=co+1
ImpostaGiocata co,nu1,ruote,poste16,k
nu1(1) = ambo33
nu1(2) = ambo34
co=co+1
ImpostaGiocata co,nu1,ruote,poste17,k
nu1(1) = ambo35
nu1(2) = ambo36
co=co+1
ImpostaGiocata co,nu1,ruote,poste18,k
nu1(1) = ambo37
nu1(2) = ambo38
co=co+1
ImpostaGiocata co,nu1,ruote,poste19,k
nu1(1) = ambo39
nu1(2) = ambo40
co=co+1
ImpostaGiocata co,nu1,ruote,poste20,k
nu1(1) = ambo41
nu1(2) = ambo42
co=co+1
ImpostaGiocata co,nu1,ruote,poste21,k
nu1(1) = ambo43
nu1(2) = ambo44
co=co+1
ImpostaGiocata co,nu1,ruote,poste22,k
nu1(1) = ambo45
nu1(2) = ambo46
co=co+1
ImpostaGiocata co,nu1,ruote,poste23,k
nu1(1) = ambo47
nu1(2) = ambo48
co=co+1
ImpostaGiocata co,nu1,ruote,poste24,k
nu1(1) = ambo49
nu1(2) = ambo50
co=co+1
ImpostaGiocata co,nu1,ruote,poste25,k
nu1(1) = ambo51
nu1(2) = ambo52
co=co+1
ImpostaGiocata co,nu1,ruote,poste26,k
nu1(1) = ambo53
nu1(2) = ambo54
co=co+1
ImpostaGiocata co,nu1,ruote,poste27,k
nu1(1) = ambo55
nu1(2) = ambo56
co=co+1
ImpostaGiocata co,nu1,ruote,poste28,k
nu1(1) = ambo57
nu1(2) = ambo58
co=co+1
ImpostaGiocata co,nu1,ruote,poste29,k
nu1(1) = ambo59
nu1(2) = ambo60
co=co+1
ImpostaGiocata co,nu1,ruote,poste30,k
nu1(1) = ambo61
nu1(2) = ambo62
co=co+1
ImpostaGiocata co,nu1,ruote,poste31,k
nu1(1) = ambo63
nu1(2) = ambo64
co=co+1
ImpostaGiocata co,nu1,ruote,poste32,k
Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 2
Scrivi String(37,32) & "METODO CHE VINCE NON SI CAMBIA + giocata",1
Scrivi String(45,32) & "List. by DjNomade",1
ColoreTesto 0
End Sub