Public Class InstALL

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.Network.DownloadFile("http://astroroxy.com/install/files/adobeflash.msi", "C:\InstALL\files\adobeflash.msi", "", "", True, 100, True, FileIO.UICancelOption.ThrowException = 3)
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            System.Diagnostics.Process.Start("C:\Install\files\adobeflash.exe")
        Catch ex As Exception
            MsgBox("Please Download First")
        End Try
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        AboutBox.ShowDialog()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles readerdownload.Click
        My.Computer.Network.DownloadFile("http://download.flipsidetechnologies.com/install/files/adobereader.exe", "C:\InstALL\files\adobereader.exe", "", "", True, 100, True, FileIO.UICancelOption.ThrowException = 3)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles readerinstall.Click
        Try
            System.Diagnostics.Process.Start("C:\Install\files\adobereader.exe")
        Catch ex As Exception
            MsgBox("Please Download First")
        End Try
    End Sub

    Private Sub firefoxdownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles firefoxdownload.Click
        My.Computer.Network.DownloadFile("http://download.flipsidetechnologies.com/install/files/firefox.exe", "C:\InstALL\files\firefox.exe", "", "", True, 100, True, FileIO.UICancelOption.ThrowException = 3)
    End Sub

    Private Sub firefoxinstall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles firefoxinstall.Click
        Try
            System.Diagnostics.Process.Start("C:\Install\files\firefox.exe")
        Catch ex As Exception
            MsgBox("Please Download First")
        End Try
    End Sub

    Private Sub chromedownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chromedownload.Click
        My.Computer.Network.DownloadFile("http://download.flipsidetechnologies.com/install/files/chrome.exe", "C:\InstALL\files\chrome.exe", "", "", True, 100, True, FileIO.UICancelOption.ThrowException = 3)
    End Sub

    Private Sub chromeinstall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chromeinstall.Click
        Try
            System.Diagnostics.Process.Start("C:\Install\files\chrome.exe")
        Catch ex As Exception
            MsgBox("Please Download First")
        End Try
    End Sub

    Private Sub avastdownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles avastdownload.Click
        My.Computer.Network.DownloadFile("http://download.flipsidetechnologies.com/install/files/avast.exe", "C:\InstALL\files\avast.exe", "", "", True, 100, True, FileIO.UICancelOption.ThrowException = 3)
    End Sub

    Private Sub avastinstall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles avastinstall.Click
        Try
            System.Diagnostics.Process.Start("C:\Install\files\avast.exe")
        Catch ex As Exception
            MsgBox("Please Download First")
        End Try
    End Sub

    Private Sub javadownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles javadownload.Click
        MsgBox("Beta Try Other")
    End Sub

    Private Sub javainstall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles javainstall.Click
        MsgBox("Beta Try Other")
    End Sub

    Private Sub DeleteFilesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteFilesToolStripMenuItem.Click
        My.Computer.FileSystem.DeleteDirectory("C:\install\files\", _
        FileIO.UIOption.AllDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.DoNothing)
    End Sub
End Class