VERSION 5.00
Object = "{94C44CD9-C05E-45C4-8B01-EE4D5BE40667}#2.45#0"; "sevXPCtl.ocx"
Begin VB.Form FProgress 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   210
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4185
   Icon            =   "FProgress.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   210
   ScaleWidth      =   4185
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin sevXPControls.sevWaitBar sevWaitBar1 
      Height          =   150
      Left            =   15
      TabIndex        =   0
      Top             =   0
      Width           =   4080
      _ExtentX        =   7197
      _ExtentY        =   265
      BorderStyle     =   0
      BackColor       =   -2147483643
      BorderColor     =   8409372
      FillColor       =   8839370
      FillColorLight  =   14678001
   End
End
Attribute VB_Name = "FProgress"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
Private Sub Form_Load()
    If Command = "" Then
        Call Unload(Me)
    End If
    sevWaitBar1.Step = 1
    sevWaitBar1.Interval = 15
    Call sevWaitBar1.ShowBar
 
    Me.Top = -64000
    Me.Left = -64000
End Sub
 
Private Sub Form_Resize()
    Call sevWaitBar1.Move(0, 0, Me.Width, Me.Height)
End Sub

    Dim ProgressBar As CProgressBar
    Set ProgressBar = New CProgressBar
    Call ProgressBar.CProgressBar( _
                        MComponentHelper.ComponentConfig.ProgressbarAppPath)
    Call ProgressBar.Show(picDongleSync.hWnd, "123")