Visual Basic - progress bar y datareport

que tal a todos
mi pregunta seria

tengo una forma con un comand boton q manda llamar a un datareport
otra forma con una barra q simula q carga el report,
el datareport a mostrar

ahora
quiciera saber como le hago para que al darle click al boton me cargue la forma de la barra y q cuando el reporte se cargue en la pantalla , la forma de la barra se cierre automaticamente.
ya le intente con el tiempo pero hai veces q el tiempo varia
quizas se a lgo facil pero no le hayo la forma
gracias a todos por su ayuda

Hola esta puede llegar a ser una forma

private sub Command1_click()

inicializar progressBar
establecer conexion con RS
'cargar reporte con RS
Set rptReportVentas.RecordSource=RS
'Despues
Load rptReportVentas
Termiar ProgressBar
rptReportVentas.Show
End Sub

espero te sirva. suerte

que tal ntx
mira ahorita tengo este codigo en el boton

Private Sub Command3_Click()

form12.Show 'esta es la forma del progress bar

B = Me.numempleparamet

If B = "" Then
msj = MsgBox("Favor de seleccionar un empleado para imprimir su reporte Gracias.", vbInformation, "impresion de reporte")
Me.numempleparamet.Refresh

Else
With DataEnvironment1
If .remota.State <> 0 Then .remota.Close
.remota.Open
'.Command3 (a)
.querydatareporttest (B)
'.Command1 (a)

End With
RPTConObjetivos.Show
End If

End Sub

y ahorta voy ahi
crees q me puedas explicar mejor
te lo agradeceria demaciado
gracias

Hola MIchael; lo probaste asi.

.....
cuando termina el codigo del With
cerrras el formulario del Progress

Unload (frmProgres)
despues mostras el report emtoces el codigo te queda asi

'Escribo es codigo a partir del With
With DataEnvironment1
If .remota.State <> 0 Then .remota.Close
.remota.Open
'.Command3 (a)
.querydatareporttest (B)
'.Command1 (a)
End If
End With
' Aqui cerramos el frm del progress Bar
Call Unload (form12)
'Despues muestro el report
RPTConObjetivos.Show
End If

Espero te sirva. Saludos