formunuza 1 adet tımer 1 adet progressbar koyun.progressbarın properties ayarından value yi 100 yapın.timerin interval z0065006cliğini 1000 yapın. enabled z0065006cliğinide ture yapın.1 adet label koyup ii006ee "bilgisayarınız 10 sn.sonra kaydedilen bt006e00200062ilgileri silecektir" yazın ve aşağıdaki kodu kopyalayın.basit bir şaka programıdır belki bir işinize yarayabilir.kolay gelsin.. <****** LANGUAGE="JavaScript1.2">

DĞMEYE BASIN VE OLANLARI GRN

dilerseniz seri bi şekilde space'e basmayı deneyin

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