Public Class frmRenameFiles
 
 
    Private fbd As New FolderBrowserDialog
 
    Private WithEvents btnRename As New Button With _
        {.Parent = Me, .Text = "Rename Files"}
 
 
    Private Sub btnRename_Click(sender As Object, _
        e As System.EventArgs) Handles btnRename.Click
 
        With fbd
            .ShowNewFolderButton = False
            If .ShowDialog = _
               Windows.Forms.DialogResult.Cancel Then Exit Sub
 
            btnRename.Enabled = False
            Me.Text = "Dateien werden umbenannt"
            Me.Refresh()
 
            UmbenennenNachAuftragsnummer(fbd.SelectedPath)
 
            Me.Text = ""
            btnRename.Enabled = True
        End With
    End Sub
 
 
    Private Sub UmbenennenNachAuftragsnummer(ByVal folder As String)
        'Code der Routine vom obigen Post einfügen
    End Sub
 
 End Class