Produce Shrinking Text

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
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: