visual basicte ekran koruyucu yapalım

Bu programda 4 label 2 timer kullanılmıştır. Labelleri formun üzerine her biri bi köşede olmak üzere formu kaplayacak şekil de eşit olarak büyültünüz. Formu tam ekran yapınız. Her labelin rengini ve formun rengini değişik rengte yaparsanız farkı görürsünüz.Mesela label1'i kırmızı,label2' yi sarı, label3' ü sarı ve label 4'ü kırmızı yapınız.kodları uygun yerlerine yazdıktan sonra çalıştırınız.
NOT:bilgisayarın ekran kartının iyi olması gerekmektedir Aksi taktirde görüntü iyi olmayabilir.






Private Sub Form_Load()
Timer1.Interval = 1
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Height = Label1.Height + 10
Label2.Height = Label2.Height + 10
Label3.Height = Label3.Height + 10
Label3.Top = Label3.Top - 10
Label4.Height = Label4.Height + 10
Label4.Top = Label4.Top - 10
If Label1.Height = 5105 Then
Timer2.Interval = 1
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub
'Bydigi.net
Private Sub Timer2_Timer()
Timer1.Enabled = False
Label1.Height = Label1.Height - 10
Label2.Height = Label2.Height - 10
Label3.Height = Label3.Height - 10
Label3.Top = Label3.Top + 10
Label4.Height = Label4.Height - 10
Label4.Top = Label4.Top + 10
If Label1.Height = 15 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub