• Home
 · 
• Graphics
 · 
• Executable that acts as screensaver that shows your text with different colors at an interval with

Executable that acts as screensaver that shows your text with different colors at an interval with

Executable that acts as screensaver that shows your text with different colors at an interval with a different color background each color

API Declarations


'Just add form with appropriate things i.e. labels...textboxes...command buttons
Dim textinput As String



Rate Executable that acts as screensaver that shows your text with different colors at an interval with

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Unload Me
End Sub
Private Sub Command1_Click()
textinput = Text1.Text
Label1.Caption = textinput
Text1.Visible = False
Command1.Visible = False
Label2.Visible = False
tmrtimer.Interval = 900
End Sub

Private Sub Form_Click()
Unload Me
End Sub

Private Sub Text1_click()
Text1.Text = ""
End Sub

Private Sub tmrtimer_Timer()
If Form1.BackColor = &H8000000F Then
Form1.BackColor = &HFF&
Label1.BackColor = &HFF&
Label1.ForeColor = &HFF00&
ElseIf Form1.BackColor = &HFF& Then
Form1.BackColor = &H80FF&
Label1.BackColor = &H80FF&
Label1.ForeColor = &HFFFF00
ElseIf Form1.BackColor = &H80FF& Then
Form1.BackColor = &HFFFF&
Label1.BackColor = &HFFFF&
Label1.ForeColor = &HFF0000
ElseIf Form1.BackColor = &HFFFF& Then
Form1.BackColor = &HFF00&
Label1.BackColor = &HFF00&
Label1.ForeColor = &HFF00FF
ElseIf Form1.BackColor = &HFF00& Then
Form1.BackColor = &HFFFF00
Label1.BackColor = &HFFFF00
Label1.ForeColor = &HFF&
ElseIf Form1.BackColor = &HFFFF00 Then
Form1.BackColor = &HFF0000
Label1.BackColor = &HFF0000
Label1.ForeColor = &H80FF&
ElseIf Form1.BackColor = &HFF0000 Then
Form1.BackColor = &HFF00FF
Label1.BackColor = &HFF00FF
Label1.ForeColor = &HFFFF&
ElseIf Form1.BackColor = &HFF00FF Then
Form1.BackColor = &HFF&
Label1.BackColor = &HFF&
Label1.ForeColor = &HFF00&
End If
End Sub