by Zaw Min Aye (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 19th September 2003
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
This Code is Changed the state of Form Caption Using Timer Control and Loop.
Private Sub Command1_Click()
Static i, j
mzm:
If i <= Len(str) Then: Form1.Caption = Left(str, i): i = i + 1: j = 0: Else: Form1.Caption = Replace(str, Right(str, j), ""): j = j + 1: If Len(Form1.Caption) = 1 Then i = 0: GoTo mzm:
End Sub
Private Sub Form_Load()
str = "Information Technology"
End Sub
Private Sub Timer1_Timer()
Command1_Click
End Sub
No comments have been posted about This Code is Changed the state of Form Caption Using Timer Control and Loop.. Why not be the first to post a comment about This Code is Changed the state of Form Caption Using Timer Control and Loop..