Estou tentando obter uma linha de saída de linha de comando por linha até o final da saída, mas não consigo fazer isso. Estou usando-o no meu formulário e esse código é executado com o clique de um botão.
Você pode me dizer o que há de errado com o meu código?

Dim proc As ProcessStartInfo = New ProcessStartInfo("cmd.exe")
    Dim pr As Process
    proc.CreateNoWindow = True
    proc.UseShellExecute = False
    proc.RedirectStandardInput = True
    proc.RedirectStandardOutput = True
    pr = Process.Start(proc)
    pr.StandardInput.WriteLine("cd C:\sdk\platform-tools\")
    pr.StandardInput.WriteLine("adb help")
    Dim helpArray(20) as String
    For i as Integer 1 To 7
    helpArray(i) = pr.StandardOutput.ReadLine()
    Next
    pr.StandardOutput.Close()

O programa pára de responder quando esse código é executado.