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