[VBA/EXCEL '07] Aggiornamento lento del label

[leomac]

Salve a tutti,
ho due form in uno ho due textbox e un commandbutton nell'altro ho una label.
All'evento commandbutton click ho inserito:

Private Sub CommandButton2_click()
Dim a as String
Dim b As String
a = Scheda_Info_Generali.TextBox10.text 'nome
b = Scheda_Info_Generali.TextBox9.text 'cognome
Scheda_Info_Generali.Hide
Scheda_Info_Contrattuali.Show
Scheda_Info_Contrattuali.label24.Caption = "INDICAZIONI CONTRATTUALI DI" & a & chr(160) & b
end Sub

A questo punto inserendo lettere all'interno delle textbox, al click del button dovrebbe aggiornare la label. Cò non accade subito ma solo dopo aver fatto l'unload del form e averlo ricaricato. Come posso aggiornare la label nell'immediato?? e come mai succede ciò??

[Boolean]

Originariamente inviato da leomac
Come posso aggiornare la label nell'immediato?? e come mai succede ciò??

L'UserForm è modale, per default, per cui l'esecuzione del codice chiamante viene bloccata fintanto che questo non viene chiuso.
Per fare in modo che la Label sia comunque aggiornata bisogna caricare prima il Form senza che sia reso visibile, aggiornare la Label e solo dopo mostrare il Form.

In pratica:

Private Sub CommandButton2_click()
Dim a as String
Dim b As String
a = Scheda_Info_Generali.TextBox10.text 'nome
b = Scheda_Info_Generali.TextBox9.text 'cognome
Scheda_Info_Generali.Hide

Scheda_Info_Contrattuali.Load
Scheda_Info_Contrattuali.label24.Caption = "INDICAZIONI CONTRATTUALI DI" & a & chr(160) & b
Scheda_Info_Contrattuali.Show

End Sub

Boolean

[leomac]

Boolean, ti ringrazio per il chiarimento. Avevo pensato anche io a queto ma il fatto è che per VBA il comando .Load non c'è. Difatti inserendo il tuo codice mi da "Errore di compilazione: Impossibile trovare il metodo o il membro dei dati". Evidenziandomi in giallo la stringa:
"Private Sub CommandButton2_click" ed in blu il .load di "Scheda_Info_Contrattuali.Load"

[leomac]

Risolto:

Private Sub CommandButton2_click()
Dim a as String
Dim b As String
a = Scheda_Info_Generali.TextBox10.text 'nome
b = Scheda_Info_Generali.TextBox9.text 'cognome
Scheda_Info_Generali.Hide

Load  Scheda_Info_Contrattuali
Scheda_Info_Contrattuali.label24.Caption = "INDICAZIONI CONTRATTUALI DI" & a & chr(160) & b
Scheda_Info_Contrattuali.Show
End Sub

e thx