Visual Basic > Code Snippets

A text effect

A text effect

'quite a smart text effect 
Private Sub Command1_Click()
Dim x, y, i
form1.FontSize = 24
ForeColor = 0
x = CurrentX
y = CurrentY
For i = 1 To 400
Print "Hello"
x = x + 1: y = y + 1
CurrentX = x
CurrentY = y
Next
ForeColor = &HFFFF&
Print "Hello"
End Sub