Oncelikle Formunuza 1 adet tımer 1 adet progressbar koyun.progressbarın properties ayarından value yi 100 yapın.timerin interval ozelliğini 1000 yapın.
enabled ozelliğinide ture yapın.1 adet label koyup icine "bilgisayarınız 10 sn.sonra kaydedilen butun bilgileri silecektir" yazın ve aşağıdaki kodu
kopyalayın.basit bir şaka programıdır belki bir işinize yarayabilir.



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İRUS")
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İRUS")

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İRUS")
End Sub

TEŞEKKURLER


__________________