• Home
 · 
• Graphics
 · 
• Flash a gradient 3D Text on a form 'This will flash a multicolored gradient 3D text on 'a form. Pla

Flash a gradient 3D Text on a form 'This will flash a multicolored gradient 3D text on 'a form. Pla

Flash a gradient 3D Text on a form 'This will flash a multicolored gradient 3D text on 'a form. Place the code in the general section of a

Rate Flash a gradient 3D Text on a form 'This will flash a multicolored gradient 3D text on 'a form. Pla

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Private Sub Timer1_Timer()
    Dim Tm As Double
    Dim strText As String
    Dim Ctr As Integer
'Set Font Size & Style & Form Color
    With Form1
        .BackColor = RGB(0, 255, 0)
        .FontName = "Arial Black"
        .FontSize = 24
        .FontBold = True
        '.FontItalic = True
        .FontUnderline = True
    End With
'Set the text to be printed on the form
        strText = "3 D TEXT"
        x = CurrentX
        y = CurrentY
        x = 1500 'Set the position of the_
        y = 1300 'text here x = ? ,y = ?
    For Ctr = 0 To 255
        ForeColor = RGB(Ctr, 0, 0) ' Change gradient color with the_
        x = x + 1          ' RGB()function
        y = y + 1
        CurrentX = x
        CurrentY = y
    Print strText
    Next Ctr
        ForeColor = RGB(0, 0, 0) 'Change text color here
        CurrentX = x: CurrentY = y
    Print strText
    For Tm = 1 To 70000  ' Adjust the time that the text _
                         'stays displayed
    DoEvents
    Next Tm

        Form1.Cls
    End Sub