Moving Credits in VB.NET (HD)
##################EASY CODING WITH RICHARD####################
MOVING CREDITS
||||||||||||||||||||||||||||||||||||||||||||||
Public Class Form1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim red, blue, green As Integer
Dim randoms As New Random
'
red = randoms.Next(0, 255)
blue = randoms.Next(0, 255)
green = randoms.Next(0, 255)
Me.BackColor = Color.FromArgb(red, blue, green)
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Label1.Location = New Point(Label1.Location.X - 1, Label1.Location.Y - 2)
Label2.Location = New Point(Label2.Location.X - 1, Label2.Location.Y - 2)
End Sub
End Class