by N.SWAMINATHAN (7 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 6th November 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
TEXT COMING OUTSIDE IN TO YOUR FORM THEN JOINED ALL TEXT LIKE A NAME
Private Sub Timer1_Timer()
If Label1.Left <= 480 Then
Label1.Left = Label1.Left + 10
Label1.ForeColor = QBColor(Rnd * 13)
Else
Label1.Left = Label1.Left
End If
End Sub
Private Sub Timer2_Timer()
If Label2.Top <= 1320 Then
Label2.Top = Label2.Top + 10
Label2.ForeColor = QBColor(Rnd * 14)
Else
Label2.Top = Label2.Top
End If
End Sub
Private Sub Timer3_Timer()
If Label3.Top >= 1320 Then
Label3.Top = Label3.Top - 100
Label3.ForeColor = QBColor(Rnd * 11)
End If
End Sub
Private Sub Timer4_Timer()
If Label4.Left >= 1850 Then
Label4.Left = Label4.Left - 100
Else
Label4.Left = Label4.Left
Label4.ForeColor = QBColor(Rnd * 10)
End If
End Sub
No comments have been posted about TEXT COMING OUTSIDE IN TO YOUR FORM THEN JOINED ALL TEXT LIKE A NAME. Why not be the first to post a comment about TEXT COMING OUTSIDE IN TO YOUR FORM THEN JOINED ALL TEXT LIKE A NAME.