Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
'Komut satırı argümanlarını çalıştırma
Dim p As Process = New Process() 'process’in instancesini aldık
p.StartInfo.FileName = "cmd" 'Çalıstırılacak file
p.StartInfo.Arguments = "/c " & Me.textBox1.Text 'file içerisine gönderilecek arguments
p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden 'Komut çalıstıgında Cmd penceresinin açılmasını engelledik
p.StartInfo.StandardOutputEncoding = Encoding.GetEncoding(857) 'Tükçe gösterim için
p.StartInfo.CreateNoWindow = True 'Pencere Açılmasını engeller
p.StartInfo.RedirectStandardOutput = True
p.StartInfo.UseShellExecute = False
p.Start() 'process Çalıstırılır
Dim output As String = p.StandardOutput.ReadToEnd() 'Çalısan Processin sonucu
Me.textBox2.Text = output 'Sonuç textboxa yazılır
End Sub