How to make a prank virus in Microsoft Visual Basic 2008

This video tutorial will show you how to make a prank virus in Microsoft Visual Basic 2008. Pranking your friends with fake viruses never gets old, so keep doing it, again and again, with a new code every time. Speaking of codes, here is the code for this computer prank:

Timer1_tick
Dim TheRandom As New Random
ProgressBar1.Value += TheRandom.Next(1, 3)
If ProgressBar1.Value = 70 Then
Timer1.Enabled = False
MsgBox("One or more file(s) are still infecting your computer from Quarantine.",MsgBoxStyle.Critical, "ERROR")
End If

Timer2_tick
Dim TheRandom As New Random
Timer2.Interval = TheRandom.Next(100, 1000)
On Error Resume Next
If ProgressBar1.Value = 67 Then
Timer2.Enabled = False
MsgBox("Infected File(s) are still infecting your computer, Cannot clean file(s).", MsgBoxStyle.Critical, "ERROR")
Else
ProgressBar1.Value += TheRandom.Next(1, 3)
End If

Button1_Click
Button1.Enabled = False
ProgressBar1.Enabled = True
ProgressBar1.Visible = True
ProgressBar1.Value = 0
Timer1.Enabled = True

Button2_Click
Button2.Enabled = False
Timer2.Enabled = True
ProgressBar1.Value = 0

Button3_Click
Button3.Enabled = False
MsgBox("Cannot remove file(s), make sure the file(s) are still not in use", MsgBoxStyle.Critical, "ERROR")

Button4_Click
Button4.Enabled = False
MsgBox("Leaving viruses on your computer is not wise! Please quarantine the file(s)", MsgBoxStyle.Critical, "ERROR")

Button5_Click
MsgBox("hahahahahah this was a prank!, did ya belive This Was Real?", MsgBoxStyle.YesNo, ":P")
End