Visual Basic Tutorial ( Happy Virus Code )

Download Visual Basic:
http://www.microsoft.com/visualstudio/en-us 


NOTE:This is note a real virus, this is fake virus
" Just for fun "


Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim formy1 As New Form1
        Dim formy2 As New Form1
        Dim a As New Integer
        Dim b As New Integer
        Dim c As New Integer
        Dim d As New Integer
        a = Int(Rnd() * 1300)
        b = Int(Rnd() * 730)
        c = Int(Rnd() * 1300)
        d = Int(Rnd() * 730)
        Me.Location = New Point(a, b)
        formy1.Location = New Point(a, b)
        formy2.Location = New Point(c, d)
        formy1.Show()
        formy2.Show()
    End Sub
End Class