Progress Bar To a button on a userfrom

I have a delete form that finds the product ID in the first column and then deletes the entire row.. I wanted to add a progress bar to the button so when clicked the user can see when the item has been fully deleted.

This is my code

Dim rng1 As Range

MsgBox "Are you sure you want to delete this item?", vbCritical + vbYesNo

If vbYes Then



Set rng1 = Sheets("PRODUCT").Cells.Find(Me.txtDelete.Value, , xlValues, xlWhole)


txtDelete = ""
txtLayoutNo = ""
txtCategory = ""
txtProductDescription = ""
txtUnitPriceIE = ""
txtUnitPriceNI = ""

rng1.EntireRow.Delete

Else

If vbNo Then

Unload Me
FrmHomepage.Show



End If

End If

End Sub

Thanks