Private Sub CursedWindsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CursedWindsToolStripMenuItem.Click
        Dim swfFile As String = Application.StartupPath & "\FlashGames\" & "cursedwinds.swf"
        AxShockwaveFlash1.LoadMovie(0, swfFile)
        AxShockwaveFlash1.Play()
    End Sub

    Private Sub MegaMinerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MegaMinerToolStripMenuItem.Click
        Dim swfFile As String = Application.StartupPath & "\FlashGames\" & "MegaMiner.swf"
        AxShockwaveFlash1.LoadMovie(0, swfFile)
        AxShockwaveFlash1.Play()

    End Sub

    Private Sub WorldWarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WorldWarToolStripMenuItem.Click
        Dim swfFile As String = Application.StartupPath & "\FlashGames\" & "worldwars.swf"
        AxShockwaveFlash1.LoadMovie(0, swfFile)
        AxShockwaveFlash1.Play()

    End Sub