by Richard Morrison (1 Submission)
Category: Graphics
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Sun 14th November 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about Flash a gradient 3D Text on a form 'This will flash a multicolored gradient 3D text on 'a form. Pla. Why not be the first to post a comment about Flash a gradient 3D Text on a form 'This will flash a multicolored gradient 3D text on 'a form. Pla.