[VB2010 Express] Nie działa launcher do mc

[leonek2000]

Mam taki kod launchera i nie działa mi. Ma działać tak: klikasz force update usuwa minecraft.jar i launcher.jar, pobiera z serwera minecraft.jar i launcher.jar. Po kliknięciu uruchom grę ma włączyć pobrany launcher.jar

Kod launchera:

 

Imports System.Environment
Public Class Form1

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       End
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Try
           My.Computer.FileSystem.DeleteFile appData & /.minecraft/bin/minecraft.jar)
           My.Computer.FileSystem.DeleteFile(appData & /.minecraft/launcher.jar)
       Catch ex As Exception
           MessageBox.Show("Nie udało się usunąć pliku bo: " & ex.Message, "Błąd")
       End Try
       If My.Computer.Network.IsAvailable = True Then
           Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)
           My.Computer.Network.DownloadFile("https://dl.dropbox.com/u/62892967/launcher/minecraft.jar", appData & "/.minecraft/bin/minecraft.jar")
           My.Computer.Network.DownloadFile("https://dl.dropbox.com/u/62892967/launcher/MinecraftLauncher.jar", appData & "/.minecraft/bin/launcher.jar")
       Else
           MessageBox.Show("Nie ma polaczenia")
       End If
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

   Private Sub Command1_Click()
       PID = Shell("%appdata%\.minecraft\launcher.jar", vbNormalFocus)
   End Sub

   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

   End Sub
End Class

Powiedzcie co źle i jak poprawić albo dajcie cały poprawiony kod launchera.