SİSTEM SAATİNİ YAVASLATMA :D İLGİNÇ DİMİ :)

 
  'System.Threading kullanabilmek için ekleme 
  Imports System.Threading 
  Public Class Form1 
   
  'bu da sürekli çalışacak yavas fonksiyonunun sistemi kasmaması için multithreading ile arkaplanda yürütülmesini sağladık 
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
          Dim trd As Threading.Thread 
          trd = New Thread(AddressOf yavas) 
          trd.IsBackground = True 
          trd.Start() 
      End Sub 
   
  'Bu yavaşlatıcak sistemimiz doğrudan çalıştırırsak programı kasacaktır 
      Sub yavas() 
          Dim d As Date = Now 
  1:      System.Threading.Thread.Sleep(2000) 
          d = d.AddSeconds(1) 
          TimeOfDay = DateTime.Parse(d.TimeOfDay.ToString.Substring(0, 8)) 
          GoTo 1 
      End Sub 
  End Class