Ahora funcionará durante los próximos 100+ años..
Código:
Private Label1 As Label
Private Timer1 As Timer
Public Sub Form_Open()
Dim fuente As Font
Dim stexto As String
Dim ianchotexto As Integer
Dim ialtotexto As Integer
Dim dDate As Date
Dim iWork As Integer
Dim iYear As Integer = 2000
Repeat
dDate = Date(iYear, 12, 25)
iWork = DateDiff(Now(), dDate, gb.Day)
Inc iYear
Until iWork > 0
fuente = Font["Noto,10,Bold"]
stexto = "Faltan " & Str(iWork) & " días para Navidad"
ianchotexto = fuente.TextWidth(stexto)
ialtotexto = fuente.TextHeight(stexto)
With Me
.Show
.Border = False
.Height = ialtotexto * 1.4 '% más de altura que el alto del texto
.Width = ianchotexto * 1.1 '% más de anchura que el ancho del texto
.Arrangement = Arrange.Vertical
.x = Desktop.Width - .Width
.Y = Desktop.Height - .Height
End With
With Label1 = New Label(Me) As "Label1"
.Expand = True
.Background = Color.Green
.Foreground = Color.Black
.Font = fuente
.Alignment = Align.Center
.Text = stexto
End With
With Timer1 = New Timer As "Timer1"
.Delay = 3000
.Enabled = True
End With
End
Public Sub Timer1_Timer()
Timer1.Stop
Me.Close
End
