Scratch

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(Application.ProductName, Application.ExecutablePath)
        Me.Left = Screen.PrimaryScreen.Bounds.Width - Me.Width
        Me.Top = Screen.PrimaryScreen.WorkingArea.Height - Me.Height
        Me.TopMost = True
        TextBox1.Text = "Well, well, well. Hello there!"
        'Me.Visible = False
        Timer1.Interval = 5000
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Me.Visible = False Then
            Dim RandomClassSelect As New Random()
            Dim RandomNumberSelect As Integer
            RandomNumberSelect = RandomClassSelect.Next(4)
            If RandomNumberSelect = 0 Then
                TextBox1.Text = "What kind of rodents, you ask? Capybaras."
                Me.Visible = True
                MsgBox("Rodents are gnawing at your motherboard.", MsgBoxStyle.Exclamation)
                Timer1.Interval = 5000
            End If
            If RandomNumberSelect = 1 Then
                MsgBox("Whatcha doin'?", MsgBoxStyle.Question)
            End If
            If RandomNumberSelect = 2 Then
                Timer1.Interval = 5000
                Me.Visible = True
                TextBox1.Text = "Your ignorance of me is quite annoying."
            End If
            If RandomNumberSelect = 3 Then
                TextBox1.Text = "Rickroll!"
                Me.Visible = True
                System.Diagnostics.Process.Start("http://www.scratch.mit.edu/ext/youtube/?v=oHg5SJYRHA0")
                Timer1.Interval = 5000
            End If
        End If
        If Me.Visible = True Then
            Me.Visible = False
            Dim RandomClass As New Random()
            Dim RandomNumber As Integer
            RandomNumber = RandomClass.Next(5000, 30000)
            Timer1.Interval = RandomNumber
        End If
    End Sub
End Class