Simple text effect
very Simple but interesting text effect for the form caption
AI
AI சுருக்கம்: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
மூலக் குறியீடு
Dim x As Integer
Private Sub Form_Load()
x = 0
End Sub
Private Sub Timer1_Timer()
Me.Caption = Mid$("Created by Chris Martian", 1, x)
'find how much of the caption should be displayed
x = x + 1
'add 1 to number of letters to be displayed next time
If x > Len("Created by chris martian") Then x = 0
'if it gets to the end then start again
End Sub
அசல் கருத்துகள் (3)
வேபேக் மெஷினிலிருந்து (Wayback Machine) மீட்டெடுக்கப்பட்டது