message box zonder ok knop die na 2 seconden weer verdwijnt

[Doohan]

Beste Helper,

Is het mogelijk om een msgbox zonder ok knop te maken die na 2 seconden weer verdwijnt. Ik heb nu deze code maar dit is gewoon met OK knop

Private Sub Workbook_Open()
    Sheets("Blad1").Select
    Call MsgBox("Welkom: " & Application.UserName _
        & vbCrLf & "" _
        & vbCrLf & "U opent het EngineeringBook van xxx xx xxxx" _
        & vbCrLf & "" _
        & vbCrLf & "Het gebruik van deze software is voor eigen verantwoording!!" _
                , vbInformation, "Welkom")
                
    frmMainMenu.Show
End Sub

Alvast vriendelijk dank

 

[edmoor]

Zo bijvoorbeeld:
Bekijk bijlage Slapen.xlsm

(Eerst opslaan en dan pas openen)

 

[Doohan]

Dank je Edmoor.
Dat bedoel ik.
Ik ga kijken dit nu in te passen bij mijn projectje