Msgbox'un kendi kendine kapanması

[mars2]

İyi Günler;

Dim WScript As Object
Set WScript = CreateObject("WScript.Shell")
y = WScript.popup("Verileriniz Başarılı Bir Şekilde Güncellendi" & Chr(13) & "Save Edildi.", 1, "VERİ AKTARMA")
Select Case y
End Select

makrosu ile msbox kendi kendine kapanmakta

Ancak,
Time2 = Now
TimeElapsed = Format(Time2 - Time1, "ss") & " Saniye"

Set WScript = CreateObject("WScript.Shell")
X = WScript.popup("Verileriniz Başarılı Bir Şekilde Güncellendi" & Chr(13) & " İşlem Süresi: " & TimeElapsed, vbInformation, "VERİ AKTARMA")
Select Case X
End Select


Yukarıdaki makro ile kendi kendine kapanmamakta olup "tamam" butonun basmadan kapanmıyor
Neden

 

[Mahmut Bayram]

Alıntıdır. Böyle bir şey işinizi görebilir.

'İlk Bölüm
#If Win64 Then '64?
    Private Declare PtrSafe Function MsgBoxTimeout _
        Lib "user32" _
        Alias "MessageBoxTimeoutA" ( _
            ByVal hwnd As LongPtr, _
            ByVal lpText As String, _
            ByVal lpCaption As String, _
            ByVal wType As VbMsgBoxStyle, _
            ByVal wlange As Long, _
            ByVal dwTimeout As Long) _
    As Long
#Else
    Private Declare Function MsgBoxTimeout _
        Lib "user32" _
        Alias "MessageBoxTimeoutA" ( _
            ByVal hwnd As Long, _
            ByVal lpText As String, _
            ByVal lpCaption As String, _
            ByVal wType As VbMsgBoxStyle, _
            ByVal wlange As Long, _
            ByVal dwTimeout As Long) _
    As Long
#End If
'İkinci Bölüm
Sub btnMsgbox()
Time2 = Now
Timeelapsed = Format(Time2 - Time1, "ss") & " Saniye"
    Call MsgBoxTimeout(0, "Verileriniz başarılı bir şekilde güncellendi.", "Bu mesaj kutusu 4 sn sonra kapanacak." & Timeelapsed, vbInformation, 0, 4000)
End Sub

 

[mars2]

Sayın Mahmut Bayram;

İlginize teşekkürler.