Auguri di Buon Natale e felice anno nuovo

[*blacklotto*]

BUON NATALE !!!

 

[bubù]

A U G U R I di BUON NATALE A TUTTI!!!
​

 

[boris]

AUGURI DI BUON NATALE A TUTTI FORUMINI,
ringrazio a tutti coloro che sono sempre disponbili per un auto

 

[i legend]

luigi Sei Sempre un grande

 

[GioRyuKen72]

Buon Natale

 

[GiusepPino19]

Tanti Auguri di Buon Natale a Voi Tutti

 

[ufolotto]

 

[i legend]

Ri up il post per augurare un felice anno nuovo.
Tanta salute , e, che sia ricco di belle sorprese.
Un abbraccio di cuore a tutti.

 

[Marco-elle]

Auguri a tutti e.....Inventatevi qualche metodo per spaccare la Lottomatta nel 2023

 

[lotto_tom75]

Ri up il post per augurare un felice anno nuovo.
Tanta salute , e, che sia ricco di belle sorprese.
Un abbraccio di cuore a tutti.

Allora lo posto anche qui...

 

[honeybee]

Auguri a tutti e.....Inventatevi qualche metodo per spaccare la Lottomatta nel 2023

Eeeehhhh te pare facile.....

 

[honeybee]

BUON ANNO A TUTTI!

 

[Xeroxs]

Mi Unisco Per Fare gli Auguri a Tutti Voi, Nel ringraziarVi anche per quanto avete contribuito nella mia crescita pur se a piccoli passi.
Sperando in un diverso e sereno 2023 per Tutti.

 

[ppaaoolloo]

Buon 2023 a tutti
pieno di salute e fortuna

 

[claudio8]

Buon anno nuovo

 

[cedol8roby]

Buon annoooooo!!! auguri a tuttiiiiii !!!!

 

[salvo14]

Tantissimi Auguri di Buon Anno a tutto il Forum.

 

[Sakti]

Tantissimi Auguri a Tutti Voi e alle persone che vi sono più care, che il nuovo anno porti tanta salute, felicità e magari qualche bella vincita anche se un poco sudata.

 

[orion13]

Buon anno e tanta salute a tutti

 

[claudio8]

Ripeto il regalo di Luigi .. rivisitato

Option Explicit 'by LuigiB
Sub Main
     Dim s,k,i,p1,p2,c,j,clr,oldClr,sA
     i = 41
     c =(i - 1)/2
     For k = - 1 To c - 1
          Call ColoreTesto(vbRed)
          s = Space(i)
          If k = - 1 Then
               MidX s," *",c
          ElseIf k = 0 Then
               MidX s," |",c
          Else
               p1 = c - k
               p2 = c + k
               If k Mod 2 = 0 Then
                    Call ColoreTesto(vbGreen)
                    For j = p1 To c Step 2
                         MidX s,"/",j
                    Next
                    For j = c + 2 To p2 + 2 Step 2
                         MidX s,"\",j
                    Next
               Else
                    clr = NumeroCasuale(1,10)
                    Do While clr = 5 Or clr = oldClr
                         clr = NumeroCasuale(1,10)
                    Loop
                    oldClr = clr
                    Call ColoreTesto(clr)
                    For j = p1 To c Step 2
                         MidX s,"*",j
                    Next
                    For j = c + 1 To p2 + 2 Step 2
                         MidX s,"*",j
                    Next
               End If
          End If
          Scrivi(s)
     Next
     ColoreTesto 8
     For k = 1 To 3
          s = Space(i)
          p1 = c
          p2 = c + 2
          For j = p1 To p2
               MidX s,"|",j
          Next
          Scrivi(s)
     Next
     ColoreTesto vbRed
     sA = " AUGURI DI BUON   2023 !"
     s = Space(i)
     p1 =(Len(s) - Len(sA)) /2
     MidX s,sA,p1
     Call Scrivi(s,True,,Verde_)

End Sub