**READ DESCRIPTION** How To Make A Prank Virus in Visual Basic 2008. Download my prank viruses and pictures at www.mediafire.com Codes: 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 ...