Foutmelding bij opstarten van UserForm

[CorVerm]

Goede morgen,
Tijdens het opstarten van een bepaald programma wil ik een UserForm als welkomscherm weer laten geven. Daartoe heb ik de volgende code in ThisWorkbook gezet:

Private Sub frmwelkom_Activate()
t = Timer
Do While Timer < t + 0.5
DoEvents
Loop
Unload Me
End Sub

Bij het opstarten van het prog. doet de code echter helemaal niets. Als ik in de VBeditor de code stap voor stap afspeel komt de volgende foutmeldig:
Fout 361 tijdens uitvoering:
Door toepassing of object gedefinieerde fout.
Wat zie ik over het hoofd?

 

[tilpi]

Zet dit in de programmacode van het Userform

Private Sub UserForm_Activate()
t = Timer
Do While Timer < t + 5
DoEvents
Loop
Unload Me
End Sub

Ik heb 0.5 veranderd in 5. Een halve seconde is wek erg kort.

En dit in ThisWorkbook

Private Sub Workbook_Open()
frmwelkom.Show
End Sub

Mvg

Piet

 

[CorVerm]

Piet,
Hartelijk dank voor de gegeven oplossing. Op het moment dat jouw bericht binnenkwam wist ik alweer hoe het in elkaar zit, dus had ik de oplossing al gevonden. Daarom niet minder dank.

 

[CorVerm]

Piet,
Even vergeten te melden maar wat betreft de tijd van tonen heb je natuurlijk gelijk.