• Home
 · 
• String Manipulation
 · 
• A very cool 3d text. Test it!!!! :-)

A very cool 3d text. Test it!!!! :-)

A very cool 3d text. Test it!!!! :-)

Rate A very cool 3d text. Test it!!!! :-)

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    ' *******************************************************************************
    '   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]