Visual Basic.NET - Progress Bar

Hola, tengo la sig. Funcion que la llamo desde un boton

Function GridAExcel(ByVal ElGrid As DataGridView) As Boolean
'Creamos las variables
Dim exApp As New Microsoft.Office.Interop.Excel.Application
Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet

Try
'Añadimos el Libro al programa, y la hoja al libro
exLibro = exApp.Workbooks.Add
exHoja = exLibro.Worksheets.Add()

' ¿Cuantas columnas y cuantas filas?
Dim NCol As Integer = ElGrid.ColumnCount
Dim NRow As Integer = ElGrid.RowCount

'Aqui recorremos todas las filas, y por cada fila todas las columnas y vamos escribiendo.
For i As Integer = 1 To NCol
exHoja.Cells.Item(6, i) = ElGrid.Columns(i - 1).Name.ToString
'exHoja.Cells.Item(6, i).HorizontalAlignment = 3
Next

For Fila As Integer = 0 To NRow - 1
For Col As Integer = 0 To NCol - 1
exHoja.Cells.Item(Fila + 7, Col + 1) = ElGrid.Rows(Fila).Cells(Col).Value
Next
Next
'Titulo en negrita, Alineado al centro y que el tamaño de la columna se ajuste al texto
exHoja.Rows.Item(6).Font.Bold = 1
exHoja.Rows.Item(6).HorizontalAlignment = 3
exHoja.Columns.AutoFit()

'Aplicación visible
exApp.Application.Visible = True

exHoja = Nothing
exLibro = Nothing
exApp = Nothing

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error al exportar a Excel")
Return False
End Try

Return True
End Function

La funcion me exporta el DataGridView a un libro de Excel, lo que necesitaria es agregar un Progress Bar al formulario dependiendo de lo que tarde en exportarse el DataGridView al Excel. Alguien me podria pasar codigo para realizarlo.
Otra pregunta tambien, alguien sabe que le podria agregar a la funcion para que cuando se abra la hoja de Excel lo haga por delante del formulario y no por detras del mismo.
Muchas gracias

ProgressBar1.Visible = True

ProgressBar1.Maximum = 100
ProgressBar1.Value = 0
P = 0
Do While P < 100
p = p + 5
ProgressBar1.Value = P
x = 0
Do While x < 100000

x = x + 4
Loop
Loop

Puedes manejar la opción que comenta csdk solo que para que te marque el tiempo exacto de ejecución establece el máximo valor de tu progress bar igual a tu número de filas.

Hola, gracias por la ayuda a ambos pero como eclaro las P y las X

Muchas gracias

hola tengo un programa el cual me arroja km datos los estados de la republica pero toda la informacion junta en una sola pestaña.

mi pregunta es como le puedo hacer para q cuando yo seleccione ciertos estados me arroje la informacion pero en la misma hoja de excel pero con las pestañas correspondientes de cada estado. agradezco su atencion espero me puedan ayudar ha y el programa q estoy manejendo es en progress