[Black Rain]

Saniye ilerledikçe saniyeyi gösteren Label nesnesi kayıyor..
Eklenecek Nesneler; Label1, Timer1
(Timer1'in Interval özelliğini 1000 yapıyoruz)

Private Sub Form_Load()
     Form1.Caption = Time
     Label1.Caption = Second(Time)
End Sub

Private Sub Timer1_Timer()
     Form1.Caption = Time
     Label1.Caption = Second(Time)
show:
     Label1.Top = Label1.Top + 50
     Label1.Left = Label1.Left + 50
     Cls
End Sub