I need my app to download a rar/zip file and extract them to a certain folder when done downloading and extracting the file i need it to remove the rar/zip file it also needs a progress bar with the Percentage included

heres all the code i have so far:

Code:
Imports System.Net
Imports System.IO


Public Class Form1
    Private Sub donatebutton_Click(sender As Object, e As EventArgs) Handles donatebutton.Click
        'Donate button
        Dim webAddress As String = "http://custom-zombies.com/Forums/index.php?action=treasury#MakeDonation"
        Process.Start(webAddress)
    End Sub

    Private Sub Treeview1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
        If e.Node.Text = ("Gcz Hut") Then
            'Start code
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.Gcz_hut)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.Gczhut)
            'End code
        ElseIf e.Node.Text = ("Radiation Xtreme (RADX)") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.RadX)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.Radiation_Xtreme)
        ElseIf e.Node.Text = ("Rise") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.riseimg)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.Rise1)
        ElseIf e.Node.Text = ("Prison Mission - v1.1 NEW") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.prison)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.Prison_Mission)
        ElseIf e.Node.Text = ("Official GCZ Maps") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.bg_body)
            'tell user about the map...
            RichTextBox1.Text = ("Double Click to see all Official GCZ Maps")
        ElseIf e.Node.Text = ("Community Maps") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.bg_body)
            'tell user about the map...
            RichTextBox1.Text = ("Double Click to see all Community Maps")
        ElseIf e.Node.Text = ("Crash") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.crashimg)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.Crashtxt)
        ElseIf e.Node.Text = ("Bunbury") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.Bunbury)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.Bunburytxt)
        ElseIf e.Node.Text = ("Bacon") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.Baconimg)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.Bacontxt)
        ElseIf e.Node.Text = ("[BZB] Untergrund 1.1.1") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.untergrund)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.untergrundtxt)
        ElseIf e.Node.Text = ("Son's of zombie anarchy") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.anarchyimg)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.anarchytxt)
        ElseIf e.Node.Text = ("Bitroom") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.bg_body)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.bitroomtxt)
        ElseIf e.Node.Text = ("Ambush") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.Ambushimg)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.Ambushtxt)
        ElseIf e.Node.Text = ("Nazi_Zombie_Bullfrog") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.Bullfrogimg)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.Bullfrogtxt)
        ElseIf e.Node.Text = ("Ill manor v3") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.bg_body)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.Illmanorv3txt)
        ElseIf e.Node.Text = ("Imminent") Then
            'Note there is no extension on GCZ_team image.
            Me.PictureBox1.Image = (My.Resources.Imminentimg)
            'tell user about the map...
            RichTextBox1.Text = (My.Resources.Imminenttxt)
        End If
    End Sub

    Private Sub DownloadButton_Click(sender As Object, e As EventArgs) Handles DownloadButton.Click
        'Gcz Hut Download
        If TreeView1.SelectedNode.Text = ("Gcz Hut") Then
            My.Computer.Network.DownloadFile(
            "http://www.cohowinery.com/downloads/WineList.txt",
            "C:\Users\Greenlungs81\Desktop\test\1.txt")
            'Radiation Xtreme Download
        ElseIf TreeView1.SelectedNode.Text = ("Radiation Xtreme (RADX)") Then
            My.Computer.Network.DownloadFile(
            "http://www.cohowinery.com/downloads/WineList.txt",
            "C:\Users\Greenlungs81\Desktop\test\2.txt")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'Gcz Hut More Images
        If TreeView1.SelectedNode.Text = ("Gcz Hut") Then
            PictureBox1.ImageLocation = "http://4.bp.blogspot.com/_16A_bWvSzZ4/TPSNe8NuxyI/AAAAAAAACxQ/7LVUVgv3cA8/s1600/DogPoopILOVEU.img_assist_custom.jpg"
            'Radiation Xtreme More Images
        ElseIf TreeView1.SelectedNode.Text = ("Radiation Xtreme (RADX)") Then
            PictureBox1.ImageLocation = "http://4.bp.blogspot.com/_16A_bWvSzZ4/TPSNe8NuxyI/AAAAAAAACxQ/7LVUVgv3cA8/s1600/DogPoopILOVEU.img_assist_custom.jpg"
        End If
    End Sub
End Class