• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This Code is Changed the state of Form Caption Using Timer Control and Loop.

This Code is Changed the state of Form Caption Using Timer Control and Loop.

This Code is Changed the state of Form Caption Using Timer Control and Loop.

Rate This Code is Changed the state of Form Caption Using Timer Control and Loop.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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