ProgressStatus Example for Visual Basic

Private Sub LEADDICOM1_ProgressStatus(ByVal nPercent As Integer)
    Caption = "Loading..." & CStr(nPercent) & "%"
    If (gbQuit = True) Then
        LEADDICOM1.EnableProgressEvent = False 'stop the load
    End If
    DoEvents
End Sub