by Morten D Carlsson (3 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 10th July 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A very cool 3d text. Test it!!!! :-)
' *******************************************************************************
' nn n eeeeeeee ttttttttttttt rrrrrrrrr ooooooooo mm m *
' n n n e t r r o o m m mm *
' n n n e t r r o o m m m m *
' n n n e t rrrrrrrrr o o m m m m *
' n n n eeeee t rr o o m m m *
' n n n e t r r o o m m *
' n nn e t r r o o m m *
' n n eeeeeeeee t r r ooooooooo m m *
' *******************************************************************************
Dim i, x, y
' ******************************************
Me.FontSize = 26
' ******************************************
Me.ForeColor = 0: x = CurrentX: y = CurrentY
' ******************************************
For i = 0 To 444
Print "Netrom Software" ' Here goes your text.
x = x + 1: y = y + 1: CurrentX = x: CurrentY = y
Next i
' ******************************************
Me.ForeColor = 255
Print "Netrom Software"
' ******************************************
' This is made by Morten D Carlsson
' www.fly.to/netrom
' [email protected]