Ciao,
no.
Salutiamoci questa sera prima delle 23:59
Moderatori: Anthony47, Flash30005
Marius44 ha scritto:Le crisi adolescenziali le abbiamo superate tutti grazie al buon senso dei nostri genitori. Ora è il tuo turno.
Private Sub chiudi_Click()
UserForm1.Hide
End
End Sub
Private Sub riavvia_Click()
UserForm1.Hide
UserForm1.Show
End Sub
Private Sub UserForm_activate()
With Me.Controls("auguri")
.Visible = False
End With
Candele = 5
Fiamme = 5
OraAttuale = Timer
Fine = 10
Do While Timer < OraAttuale + Fine
DoEvents
'If Round(Timer * 100) / 100 = Int(Timer * 10) / 10 Then
Baluginio = Me.ScrollBar1.Value
If Int(Rnd * Baluginio + 1) = 1 Then
F = Int(Rnd * (Fiamme) + 1)
C = Int(Rnd * (Candele) + 1)
Jx = F & C
With Me.Controls("candela" & Jx)
.Visible = True
.ZOrder msoBringToFront
End With
End If
'End If
Loop
For I = 1 To Candele
With Me.Controls("candelasp" & I)
.Visible = True
.ZOrder msoBringToFront
End With
For J = 1 To Fiamme
Jy = J & I
With Me.Controls("candela" & Jy)
.Visible = False
End With
Next J
Next I
OraAttuale = Timer
Fine = 1
Do While Timer < OraAttuale + Fine
DoEvents
Loop
With Me.Controls("auguri")
.Visible = True
.ZOrder msoBringToFront
End With
End Sub
Anthony47 ha scritto:candelotti di dinamite
Torna a Applicazioni Office Windows
Visitano il forum: raimea e 8 ospiti