Use this code to get the shrinking text effect?similar to the opening of Star Wars:
' Requires a Label and Timer on the formPrivate Sub Form_Load() With Me .BackColor = vbBlack .WindowState = vbMaximized End With With Label1 .Alignment = vbCenter .AutoSize = True .BackColor = vbBlack .Caption = "Shrinking Text" .Font.Name = "Arial" .Font.Size = 150 .ForeColor = vbGreen .Visible = True End With With Timer1 .Interval = 1 .Enabled = True End WithEnd SubPrivate Sub Timer1_Timer() With Label1 If .FontSize > 2 Then .FontSize = .FontSize - 2 .Left = (Me.Width - .Width) / 2 .Top = (Me.Height - .Height) / 2 Else .Visible = False Timer1.Enabled = False End If End WithEnd Sub
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
