To handle the PercentDone event of a Widget, place the following code in the Declarations section of Form1:
Option Explicit
Private WithEvents mWidget As Widget
,,,,
Private Sub mWidget_PercentDone(ByVal Percent As _
Single, Cancel As Boolean)
...
End Sub