RealmPlayer - A custom flash player

Public Class Form1

    Private Sub FileToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileToolStripMenuItem1.Click
        Try
            OpenFileDialog1.Title = "Open SWF File"
            OpenFileDialog1.FileName = ".swf"
            OpenFileDialog1.Filter = "Shockwave Flash Object|*.swf*"
            OpenFileDialog1.ShowDialog()
            AxShockwaveFlash1.Movie = OpenFileDialog1.FileName
        Catch ex As Exception
            'Do Nothing
        End Try
    End Sub

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

    End Sub

    Private Sub SToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub

    Private Sub SpammerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpammerToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub PriceGuideToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PriceGuideToolStripMenuItem.Click
        Form3.Show()
    End Sub
End Class

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        SendKeys.Send("{Enter}")
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{Enter}")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = ""
    End Sub
End Class