Imports System.IO
 
Public Class Converter2
    Dim FFmpeg As New Process()
    Dim bitrate As Integer
 
 
 
 
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e _
      As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
        FFmpeg.StartInfo.FileName = "C:\Users\Patrick\Desktop\ffmpeg.exe"
        With FFmpeg.StartInfo
            .FileName = "C:\Users\Patrick\Desktop\ffmpeg.exe"
            .WindowStyle = ProcessWindowStyle.Hidden
        End With
 
        Dim input As String = TextBox1.Text
 
        Dim outputfolder As String = TextBox2.Text
 
 
        Dim bitrate As Integer = TextBox3.Text
 
 
        FFmpeg.StartInfo.Arguments = " -i """ + input + """ -f mp3 -ab " + CStr( _
          bitrate) + "k -acodec libmp3lame """ + outputfolder + "\" + _
          Label3.Text + ".mp3"
        FFmpeg.Start()
 
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer2.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        If ComboBox1.Text = "hoch (192kb/s)" Then
            TextBox3.Text = "192"
 
 
        End If
        If ComboBox1.Text = "mittel (128kb/s)" Then
            TextBox3.Text = "128"
 
        End If
        If ComboBox1.Text = "niedrig (92kb/s)" Then
            TextBox3.Text = "92"
        End If
        If TextBox1.Text = "" Then
        Else
 
 
        End If
 
    End Sub
 
 
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
 
 
        BackgroundWorker1.RunWorkerAsync()
        Timer2.Enabled = False
 
 
    End Sub
 
 
 
 
 
    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal _
      e As System.ComponentModel.ProgressChangedEventArgs) Handles _
      BackgroundWorker1.ProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
 
    End Sub
End Class