devxlogo

Produce Shrinking Text

Produce Shrinking Text

Why Trust Us

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
See also  Why ChatGPT Is So Important Today
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist

Charlie Frank

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.
View Author
Show More