VisualBasic.Net / Basit Bir Saka Programi

formunuza 1 adet tımer 1 adet progressbar koyun.progressbarın properties ayarından value yi 100 yapın.timerin interval özelliğini 1000 yapın.[/COLOR][/SIZE][/FONT][/CENTER]
[FONT=Trebuchet MS][SIZE=6][COLOR=#8000ff]
[CENTER]enabled özelliğinide ture yapın.1 adet label koyup içine "bilgisayarınız 10 sn.sonra kaydedilen bütün bilgileri silecektir" yazın ve aşağıdaki kodu
kopyalayın.basit bir şaka programıdır belki bir işinize yarayabilir.kolay gelsin..
 
 
 
 Private Sub Timer1_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        If ProgressBar1.Value > 20 Then
            ProgressBar1.Value = ProgressBar1.Value - 10
        Else
            Timer1.Enabled = False
            MsgBox("AHA!!!", MsgBoxStyle.OKOnly, "VİRÜS")
            ProgressBar1.Value = 100
 
        End If
    End Sub
 
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
        MsgBox("Bu programı sonlandıramazsınız!!", MsgBoxStyle.OKOnly, "VİRÜS")
 
    End Sub
 
    Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
 
        MsgBox("Tamam,tamam korkma kapanıyor...", MsgBoxStyle.OKOnly, "VİRÜS")
    End Sub