Irobot335

Public Class Form1

    Private Sub ScarfOdyseeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScarfOdyseeToolStripMenuItem.Click
        WebBrowser2.Navigate("http://www.youtube.com/watch?v=2LHRYN9nryM")
    End Sub

    Private Sub SoundSystemDreamScapeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SoundSystemDreamScapeToolStripMenuItem.Click
        WebBrowser2.Navigate("http://www.youtube.com/watch?v=GQ5iEoTEj2Q")
    End Sub

    Private Sub LadyGagaPokerFaceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LadyGagaPokerFaceToolStripMenuItem.Click
        WebBrowser2.Navigate("http://www.youtube.com/watch?v=c1R92tEYePE")
    End Sub

    Private Sub NoisettesDontUpsetTheRythToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoisettesDontUpsetTheRythToolStripMenuItem.Click
        WebBrowser2.Navigate("http://www.youtube.com/watch?v=--xnPk1wExQ")
    End Sub

    Private Sub FloRidaFtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FloRidaFtToolStripMenuItem.Click
        WebBrowser2.Navigate("http://www.youtube.com/watch?v=zpzrlN8o9Ts")
    End Sub

    Private Sub DaftPunkHarderBetterFasterStrongerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DaftPunkHarderBetterFasterStrongerToolStripMenuItem.Click
        WebBrowser2.Navigate("http://www.youtube.com/watch?v=mQfJOiiFkd0")
    End Sub

    Private Sub StopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem.Click
        WebBrowser2.Navigate("http://www.google.com/")
    End Sub

    Private Sub OpenScarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenScarToolStripMenuItem.Click
        Shell("C:\Program Files\SCAR 3.20\scar.exe")
    End Sub

    Private Sub InternetExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InternetExplorerToolStripMenuItem.Click
        Shell("C:\Program Files\Internet Explorer\iexplore.exe")
    End Sub

    Private Sub FirefoxToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FirefoxToolStripMenuItem.Click
        Shell("C:\Program Files\Mozilla Firefox\firefox.exe")
    End Sub
End Class