ProgressStatus Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
'This example uses the predefined variable "Label1" of type "Label" from ".NET Framework".
'This example uses the predefined variable "bQuit" of type "Boolean"
Private Sub LEADDICOM1_ProgressStatus(ByVal nPercent As Short) Handles LEADDICOM1.ProgressStatus
   Label1.Text = "Loading..." & CStr(nPercent) & "%"
   'bQuit is used to indicate the user request to abort the current operation.
   If (bQuit = True) Then
      LEADDICOM1.EnableProgressEvent = False
      'stop the load
   End If
   System.Windows.Forms.Application.DoEvents()
End Sub