Downloading a file

Imports System.IO
Public Class Form1
    Private _path As Object
    Private Sub AeroButtonA1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AeroButtonA1.Click
        _path = TextBox1.Text
        If RadioButton1.Checked = True Then
            Install2()
        End If


        If RadioButton2.Checked = True Then
            Install()
        End If
    End Sub
    Public Sub perx()
        Label8.Text = "Downloading PerX.zip..."
        Cursor = Cursors.WaitCursor
        My.Computer.Network.DownloadFile("https://dl-web.*******.com/get/PerX.zip?w=f01debe1&dl=1", "" + _path + "\PerX.zip")


    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Audio.Play(My.Resources.gamestartup01, AudioPlayMode.BackgroundLoop)
    End Sub

    Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click

    End Sub
    Public Sub Install()
        perx()
        Cursor = Cursors.Default
        MsgBox("Finished downloading PerX.zip!", MsgBoxStyle.Information, "Download Finished")
        Label8.Text = "Idle"
    End Sub
    Public Sub Install2()
        hack()
        Cursor = Cursors.Default
        MsgBox("Finished downloading CABase.rar!", MsgBoxStyle.Information, "Download Finished")
        Label8.Text = "Idle"
    End Sub
    Public Sub hack()
        Label8.Text = "Downloading CABase.rar..."
        Cursor = Cursors.WaitCursor
        My.Computer.Network.DownloadFile("https://dl-web.*******.com/get/CABASE.rar?w=15eeb2d7", "" + _path + "\CABase.rar")
    End Sub

    Private Sub AeroButtonA2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AeroButtonA2.Click
        Dim FolderBrowserDialog1 As New FolderBrowserDialog
        FolderBrowserDialog1****otFolder = Environment.SpecialFolder.Desktop
        FolderBrowserDialog1.SelectedPath = "C:\"
        FolderBrowserDialog1.Description = "Select your save directory."
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            TextBox1.Text = FolderBrowserDialog1.SelectedPath
            AeroButtonA1.Enabled = True
        End If
    End Sub
End Class