ProgressBar VB.NET

[Geovanny0401]

cordial saludos

nuevamente estoy aca para q me ayuden con esta consulta.

yo tengo un formulario q importa datos plano, bueno cuando lo importo se me queda el formulario en blanco pero el internamete me esta ingresando los datos en la tabla. leyendo me ha parecido muy importante el ProgressBar vb.net, la ayuda es como lo puedo implementar en mi codigo

aca le dejo mi codigo de importar

Código:

Dim I As Integer
        Dim lngFilas As Long = dvgconsulta.Rows.Count - 2
        Try
            If CheckBox1.Checked Then
                con.Execute("DELETE FROM SISBEN")
            End If
            With dvgconsulta
                For I = 0 To lngFilas
                    con.Execute("INSERT INTO SISBEN(FICHA,ZONA,BARRIO,DIRECCION,FECENCUESTA,APE1,APE2,NOM1,NOM2,TIPODOC,DOCUMENTO,FECHNAC,SEXO,PUNTAJE,FECACTENCUESTA,NIVSISBEN,EDAD) VALUES ('" & .Item("FICHA", I).Value & "','" & .Item("ZONA", I).Value & "','" & .Item("BARRIO", I).Value & "','" & .Item("DIRECCION", I).Value & "','" & FechaAMD(.Item("FECENCUESTA", I).Value) & "','" & .Item("APE1", I).Value & "','" & .Item("APE2", I).Value & "','" & .Item("NOM1", I).Value & "','" & .Item("NOM2", I).Value & "','" & .Item("TIPODOC", I).Value & "','" & .Item("DOCUMENTO", I).Value & "','" & FechaDMA(.Item("FECHNAC", I).Value) & "','" & .Item("SEXO", I).Value & "','" & .Item("PUNTAJE", I).Value & "','" & FechaAMD(.Item("FECACTENCUESTA", I).Value) & "','" & .Item("NIVSISBEN", I).Value & "','" & .Item("EDAD", I).Value & "')")
               Next
                sbError.Text = "Usuarios cargado con exito"
            End With
        Catch ex As Exception
            sbError.Text = ex.Message
        End Try

mi pregunta como implemento mi progressbar dentro de mi codigo y quitar el formulario en blanco??