Запуск java файлов

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim os As OperatingSystem = Environment.OSVersion
        Dim version As Version = os.Version
        If version.Major >= 6 Then
            dir_user = "C:\Users\" + System.Environment.UserName + "\AppData\Roaming\.minecraft\"
        Else
            dir_user = "C:\Documents and Settings\" + System.Environment.UserName + "\Application Data\.minecraft\"
        End If
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim proc As New Process()
        With proc
            .StartInfo.UseShellExecute = False
            .StartInfo.FileName = "C:\Program Files\Java\jre7\bin\javaw.exe"
            .StartInfo.Arguments = "-Xms" + Form2.ComboBox1.Text + "m -Xmx" + Form2.ComboBox1.Text + "m -cp """ + dir_user + "\bin\*""" + " -Djava.library.path=""" + "" + dir_user + "\bin\natives"" net.minecraft.client.Minecraft " + Me.TextBox1.Text + ""
        End With
        proc.Start()
        Application.Exit()

Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)