[VB6]: ProgressBar durante esecuzione comando

[fradipa]

Sto provando a fare aprire una form con un messaggio che dice di attendere finchè il file non è stato copiato. Ho inserito in questa form la progress bar e funziona bene.
Il problema nasce quando voglio chiudere la form!!!
Ho provato con unload e con hide, ma niente di fatto!!!

.
.
.

MousePointer = vbHourglass
Form1.Show vbModal

'FileCopy txtPercorso.Text, "\\aupaap02\files_cntr\" & sorgente(txtPercorso.Text)
DoEvents
Form1.ProgBarXP1.WaitBarStyle = False

Unload Form1
Me.Refresh
.
.
.

[Brainjar]

Scusa ma ti stai impastoiando da solo.
Intanto sarebbe meglio utilizzare i tag [*code] e [*/code] per postare il codice.
(Per l'utilizzo pratico togli l'asterisco.)

Poi il codice seguente :

    PBarXP.WaitBarStyle = True
    lblMsg.Visible = True
    Me.Refresh
    DoEvents

    FileCopy txtPercorso.Text, "\\aupaap02\files_cntr\" & sorgente(txtPercorso.Text)

    lblMsg.Visible = False
    PBarXP.Visible = False
    Me.Refresh

dovrebbe funzionare.

Le cause della mancata visualizzazione potrebbero essere diverse.
Magari l'oggetto PBarXP ha il metodo .Refresh o qualcos'altro che risolve questa anomalia.
Probabilmente Boolean può indicarti il modo più corretto di utilizzo del controllo con
un esempio di codice.

[fradipa]

Grazie Bainjar, ma non funge!!!
Nel caso estremo simulo il caricamento con un incremento fittizio!! (madre che pezzotto !!! )
Ho controllato e non esiste un metodo refresh su quell'oggetto!!!

[Boolean]

l'ocx in questione l'ho testato per diverso tempo, e non ho mai avuto problemi di sorta...

magari prova ad impostare la proprietà WaitBarStyle a True già in fase di progettazione
e controlla inoltre che la proprietà WaitBarDelay (velocità dello scorrimento) non sia uguale a 0 e lo stesso controlla per la proprietà WaitBarTail (numero di quadratini)

...fammi sapere... casomai do un'occhiatina al codice del controllo.

Boolean