Public Sub HappyNewYear(FirstTime As Boolean)
' find the activ Year
DateTime.DateFormat = "yyyy"
Year = DateTime.date(DateTime.now)
If Year > 2012 Then
' Message Personalized
ShowMessage( " Happy New Year " & Year.IndexOf )
ShowMessage( " ██████ ████ ██ █████ " )
ShowMessage( " ██ ██ ██ ██ ██ " )
ShowMessage( " █████ ██ ██ ██ ████ " )
ShowMessage( "██ ██ ██ ██ ██ " )
ShowMessage( "███████ ████ ██ █████ " )
ShowMessage( "From " & Logemag.ToUpperCase)
' ShowTime !
If FireWorks.IsInitialized = False Then
FireWorks.Initialize(ShowColors, Lights, Stars)
FireWorks.START
FireWorks.ShowTime
Return HAPPY = True
End If
End If
End Sub