VB.NET | Dostlarınıza Virüs Şakası Yapma

Drenated

Legend Member
Joined
Nov 23, 2019
Topics
454
Messages
1,853
Solutions
162
Reaction score
1,523
Code:
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 xxx tarafından trollendin... :)", MsgBoxStyle.OKOnly, "VİRÜS")
    End Sub
 

Top