VB.NET ile basit bir şaka programı yapmak

Basit,küçük bir şaka programıdır.ama bir ilham verebilir.kapanırkende solarak kapanıyor.(vb.net ile yapıldı.)

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.
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.

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") Dim d As Double For d = 1 To 0 + 0.02 Step -0.02 System.Threading.Thread.Sleep(50) Application.DoEvents() Me.Opacity = d Me.Refresh() Next d Environment.Exit(0) End Sub Private Sub Form1_HelpRequested(ByVal sender As Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles MyBase.HelpRequested MsgBox("Bunu yazan Serdar Şahin'dir.") End Sub End Class

TD Software