Estoy tratando de obtener una salida de línea de comando línea por línea hasta el final de la salida, pero no puedo hacerlo. Lo estoy usando en mi formulario y este código se ejecuta al hacer clic en un botón.
¿Me puede decir cuál es el problema con mi 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()

El programa deja de responder cuando se ejecuta este código.