• Home
 · 
• Custom Controls/Forms/Menus
 · 
• TEXT COMING OUTSIDE IN TO YOUR FORM THEN JOINED ALL TEXT LIKE A NAME

TEXT COMING OUTSIDE IN TO YOUR FORM THEN JOINED ALL TEXT LIKE A NAME

TEXT COMING OUTSIDE IN TO YOUR FORM THEN JOINED ALL TEXT LIKE A NAME

Rate TEXT COMING OUTSIDE IN TO YOUR FORM THEN JOINED ALL TEXT LIKE A NAME

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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